chomp(my $yen = );