chomp $yen;