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