Select Code to Download

$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/;