use strict; use warnings; use utf8; use POSIX; # test a:b 40:40 40:100 20:40 40:80 my $line = ; chomp $line; my ($A, $B) = split /\s/, $line; my $answer = 0; if($A != 0){ $answer = floor ($B / $A); if(($B % $A) != 0){ $answer += 1; } } print "$answer\n";