[21:40:24.90] P:\test>perl5.6.1 -wle" 'fred' =~ '(re)' and print $1"
re

[21:41:41.51] P:\test>perl5.6.1 -wle"$re = '(re)'; 'fred' =~ $re and print $1"
re