my ($one, $len) = split(/\s/, ); my $less = $len%$one; $less = ($less == 0) ? 0 : $one - $less; print int(($len + $less)/$one)."\n";