c:\@Work\Perl>perl -wMstrict -le
"my $re = '.../...';
 ;;
 print 'match' if 'xxx/xxx' =~ /$re/;
"
match