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