chomp( my $yen = <STDIN> );