use strict; use warnings; my $live = '東京都'; my $fee; # 東京都か埼玉県に在住しているかどうかを調べる if ($live eq '東京都' || $live eq '埼玉県') { $fee = 500; } else { $fee = 1000; } print "$live在住です。
"; print "料金は$fee円です。";