Select Code to Download

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