use strict; use warnings; my ($a, $b) = split(' ', ); print $b % $a == 0 ? int($b / $a) : int($b / $a) + 1, "\n";