c:\@Work\Perl>perl -wMstrict -le
"my $string = 'abcdef';
 ;;
 my $pattern = qr{ [rdnfqm] }xms;
 ;;
 print qq{matched '$1' at offset $-[1]}
   if $string =~ m{ ($pattern) }xms;
"
matched 'd' at offset 3