http://www.perlmonks.org?node_id=566881


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

How about...
my ($a, $b) = split(/\./, (301/60));
That?

-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo