c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'hello $1';
 ;;
 if ('good morning all' =~ /good morning (\w+)/) {
   my $evaled_string = eval qq{ qq{$string} };
   print qq{>$evaled_string<};
   }
"
>hello all<