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