if($amount =~ m/^-?(\d+)\.(\d\d)$/)

##</code><code>##

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