Select Code to Download

my $phrases_pat = join '|', map quotemeta, @phrases;
$in =~ s/(?<!\S)($phrases_pat)(?!\S)/#$1#/g;