my $x=12.3456789;
my ($a,$b)=split (/\./,$x);
$b=substr $b,0,2;
$x=$a.'.'.$b;