my $yen = <STDIN>;

##</code><code>##

chomp(my $yen = <STDIN>);