$n = reverse scalar sprintf("%2.4f",$n);
$n =~ s/^0+//g;
$n = reverse scalar $n;
$n =~ s/\.$//g;

##</code><code>##

$n = reverse scalar sprintf("%2.4f",$n);
$n =~ s/^0+\.?//g;
$n = reverse scalar $n;