Help for this page
if($amount =~ m/^-?(\d+)\.(\d\d)$/)
if ($Amount !~ m/^-?(\d+)\.(\d\d)$/) { display_output($templatefile,);#error page print <<EOF;#good result, move on