Select Code to Download

$a =~ /$b/

$a =~ /\Q$b\E/

...

my $b_re = quotemeta($b);  # This is what \Q does
$a =~ /$b_re/

$a eq $b

...

my $b_re = quotemeta($b);
$a =~ /^$b_re\z/