in reply to grep integer and fractional part from a division (modulus ?)

use Math::BigInt;

my ($n,$d) = (301, 60);
my ($q, $r) = Math::BigInt -> new( $n ) -> bdiv( $d );

print "$n divided by $d equals $q with $r remaining";

[download]

In Section Seekers of Perl Wisdom