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