use strict; use warnings; my $line = <>; chomp $line; my ($a,$b) = split / /, $line; if ($b % $a == 0){ print $b / $a; }else{ print (int ($b / $a) + 1); }