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