my $yen = <STDIN>;