$ perl -Mstrict -Mwarnings -E '
my ($var, $mod) = (4999, 100);
my ($quot, $rem) = (int $var / $mod, $var % $mod);
say $quot;
say $rem;
'
49
99