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


##</code><code>##


CustomerID 
------------
 ALFKI
 ANATR
 ANTON
 AROUT
 BERGS
 BLAUS
 BLONP
 BOLID