#! perl -slw
use strict;

my $pi = 3.141592653589793238462643383279502;

print $pi - int( $pi );

( my $fract = $pi ) =~  s/\d+(?=\.)//;

print $fract;
__END__
P:\test>462902
0.141592653589793
.14159265358979