Select Code to Download

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

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