This is a solution, but I doubt that this is what you were after. I don't see any clear way of doing it while not repeating the 301 and 60.

Minor update: Changed variable name $frac to better name $remain as this is what it is, a remainder instead of a fraction. Samy_rio++ for spotting this.

I think this is the best way to write it. You could assign the numbers to variables first (they likely are already), but the principle of your solution is clear.

One could write

($q, $r) = ( int( ($n=301) / ($d=60) ) , $n % $d );
[download]

but that is definitely less clear, even though it avoids the repetion of the numbers.

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]

Try like this,

use strict;
use warnings;

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

print "$a\t$b\n";
[download]

There are a couple of points to be wary of in any processing like this. One is that floating point numbers are not equivalent to rational numbers. Some results will look something like

$x = 75;
$y = sprintf("%1.15f", 75/5);
print $y;
# 14.999999
($i, $f) = split(/\./, $y);
print "Integer part: $i\nFractional part: $f\n";
# Integer part 14
# Fractional part 0.999999
[download]

Note:  this is an example, not necessarily an actual result.

Which is, of course, right, and is also, probably, useless. (I'm currently ignoring the bignum pragma).

What I would tend to do would be something like this:

• Use sprintf with an appropriate format to round to a desired precision.
• Split on the radix point (in the US, this is the period, ".")

#!perl
use strict;use warnings;
my $fmt = "%1.5f"; # set 5 decimal places

while(<DATA>){
     chomp;
     (my $dividend, my $divisor) = split(/\s+/,$_,2);

      (my $int, my $frac) = split(/\./, (sprintf($fmt, ($dividend/$div
+isor))),2);

       print "Integer part: $int\tFractional part: $frac\n";
}
__DATA__
1 2
2 1
3 4
4 3
127 5
75 5
[download]

Produces:

Integer part: 0 Fractional part: 50000
Integer part: 2 Fractional part: 00000
Integer part: 0 Fractional part: 75000
Integer part: 1 Fractional part: 33333
Integer part: 25        Fractional part: 40000
Integer part: 15        Fractional part: 00000

my ($a, $b) = split(/\./, (301/60));
[download]