my $test = "blah 13a blah blah"; if ( $test =~ /([^>]\d+[a-z]*[^<])/ ) { print "No tag found: $1\n"; }