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