#!/usr/bin/perl -w
use locale;
print "{\n";
while(<>) {
	chomp;
	$_ = lc $_;

	$n = no_acentuado($_);
	next unless $n ne $_;
        print "\t'$n' => '$_',\n";	
}
print "}\n";

sub no_acentuado {
  my $word = shift;
  $word =~ tr!бйнуъаимтщвкофызгх!aeiouaeiouaeioucao!;
  return $word;
}