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

to grep the integer and fractional part, from a division, into 2 different variables
(everything in 1 line :)

Try like this,

use strict;
use warnings;

my ($a, $b) = (301 / 60) =~ m/^([^\.]+)\.?([^\.]*)$/;

print "$a\t$b\n";

[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom