# use strict; use warnings; use utf8; use Encode; my $line=; #標準入力 chom($line); #----- 空白で分割 my @lines=split(/ /,$line); #----- perl 文字列・数値 明確に区別しない 自動変換 print (@lines[0]*@lines[1])/@lines[3];