## m/>\s+\w* | m/>\w* | m/>\w*## if (/>(\s*[[:alnum:]]*)) { my $matched = $1; # ... } else { # didn't match }
## if (/>(\s*[[:alnum:]]*)) { my $matched = $1; # ... } else { # didn't match }