print "ACK digit! per ww-ISdigit-posix\n" if ($a =~ /[[^:isdigit:]]/);  #changed; dbl brkts