Select Code to Download

my $string = join '|', map {quotemeta} @phrases;
$sentence =~ s/(\s$string\s)/#$1#/g;