c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = ('$1' => 'oops',  'abc' => 'ok');
 ;;
 'abc' =~ m{ (abc) }xms;
 print qq{captured '$1'};
 ;;
 print $hash{'$1'};
"
captured 'abc'
oops