my $string = '(?<=\s)(' . join( '|', map "\Q$_", @phrases ) . ')(?=\s)';
$sentence =~ s/$string/#$1#/g;