/^\w+\)/ extracts a letter followed by a closing bracket

\w also matches digits.

$ perl -E 'say $1 if q{ab1d2f} =~ m{^(\w+)$};'
ab1d2f
$
[download]