(?PATTERN) #### if ('demerphq'=~/(?\w+)/) { print $+{perlmonk} }