$pat = qr/PAT/; #### $pat = q/PAT/; #### $pat = 'PAT'; #### $pat = '(?x:foo bar)'; # Works fine #### my $pat1 = 'PAT1'; my $pat2 = 'PAT2'; $str =~ /$pat1$pat2/; #### my $pat1 = qr/PAT1/; my $pat2 = qr/PAT2/; $str =~ /$PAT1$PAT2/;
## $pat = q/PAT/; ##
## $pat = 'PAT'; ##
## $pat = '(?x:foo bar)'; # Works fine ##
## my $pat1 = 'PAT1'; my $pat2 = 'PAT2'; $str =~ /$pat1$pat2/; ##
## my $pat1 = qr/PAT1/; my $pat2 = qr/PAT2/; $str =~ /$PAT1$PAT2/;