my $price = <STDIN>;
chomp $price;
print "$price Yens ", ($price / $yen), " pounds\n";