Select Code to Download

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