c:\@Work\Perl\monks>perl -wMstrict -le
"my $rs =   'abc|xyz';
 my $rx = qr(abc|xyz);
 ;;
 my $regex = qr( $rs+ $rx+ )x;
 print $regex;
"
(?x-ism: abc|xyz+ (?-xism:abc|xyz)+ )