For your sample, you could do this:

my $aaa = "aáeéiíoóuúoöuü";
open my $fh, '>', 'tmp.txt' or die "Can't open file $!";
my @aaa = split //, $aaa;
print $fh chr( ord($_) - 32 ) for @aaa;
[download]

Note that I only print to a file because I'm on Windows, which has its own character coding in the CMD window...

But this solution won't always work (try 'ÿ' for example...)

So, Unicode is your friend ;-)

dave