if ( ($action eq "UPDATE")  && ($custid =~ /\d+/)) {