my $input = ; my @ls = split(/ /, $input); my $A = @ls[0]; my $B = @ls[1]; my $d = int($B / $A); my $m = $B % $A; if ($m > 0) { $d++; } print $d;