my @phrases = ( 'pail of water', 'pale horse' );
my $phrases_re = join '|', map { quotemeta } @phrases;
foreach my $sentence ( @sentence_source ) {
    $sentence =~ s/($phrases_re)/\#$1\#/g;
}