$Amount =~ /-?(\d+)\.?(\d+)/; $intergerpart = $1; $decimalpart = $2; $lengthdecimal = length($decimalpart); if ($lengthdecimal gt 2 || $Amount =~ /[^0-9]\.?[^0-9]/) { display_output($templatefile,); print <