# Pad the number with a bunch of zeros
$strValue =~ s/^(\d*)\.?(\d*)$/${1}.${2}000000000/;

# Remove all but the first '$strPrecision' digits that immediately
# trail the decimal point.
$strDefaultPrecision = 2;
$strPrecision = ($strPrecision >= 0) ? $strPrecision : $strDefaultPrecision;
if ($strPrecision == 0) {
  $strValue =~ s/^(\d*)\.?\d*$/$1/;
} else {
  $strValue =~ s/^(\d*\.\d{$strPrecision})\d*$/$1/;
}