if ($pw ne ""){
   $fieldValid=$pw=~/^\D*\d{4}?\D*\d{4}?\D*\d{4}?\D*$/;
   if ($fieldValid)
    { $pw=~s/\D//g }
   else
    { $StoresfailedFields="PW";$missingdigitserror = "11 or 12";$info.="$TheFields $StoresfailedFields $cardfield $requiresfield $missingdigitserror $digitsfield<BR>";
      $formValid=0 }    }