if($payment !~ m/[0-9]\.[0-9]{3}|[a-z]|\,[0-9]{2}\,|\,[0-9]{2}\./)
{
  print "*match*$payment*match\n";