my %phrase; $phrase{$_}++ for @phrases;
my @sentence = split /( +)/, $sentence;
for (@sentence) { $phrase{$_} and $_ = "#" . $_ . "#"; };
$sentence = join "", @sentence;