$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


##</code><code>##

#!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/$divisor))),2);

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