in reply to newline issue

BTW, you should also chomp $yen. 
chomp $yen;

[download]
for more details, see chomp

In Section Seekers of Perl Wisdom