#!/usr/bin/perl 
my $a = "123{12\n";
print "ACK non-digit!\n" if ($a =~ /[[:^digit:]]/);
print "ACK \\D!\n" if ($a =~ /\D/);