my $grossAmt = param("amt");
if ($grossAmt =~ s/,//g) {
    $grossAmt = sprintf '%.2f', $grossAmt;
}