my $TXT = <<EOM;
Those oranges are 50¢
EOM
print &convert($TXT);
sub convert{
my $word = $_[0];
#ARGH!
return $word;
}###########################