Help for this page
Select Code to Download
Select
or
download this
$ perl -E 'say $1 if q{ab1d2f} =~ m{^(\w+)$};' ab1d2f $