use Lingua::PT::speaker;

while(<>){
 chomp;
 $r = Lingua::PT::speaker::toPhon($_);

 print "\n\n$_ = [$r]\n";
}