#!/usr/bin/perl
use locale;
use LIngua::PT::pln;

$/ = '';

while(<>){
  print forPNstring(sub{uc($_[0])}, $_);
}
