$yen and $prince contain the newline from pressing Enter. Use

chomp( my $yen = <STDIN> );
[download]

and

chomp( my $price = <STDIN> );
[download]

to remove any trailing newline.

Ref: chomp