foreach my $stopword (@stop_words)
{
    $date =~ s/\b$stopword\b//g;
}
##</code><code>##

my $stop_pat = '\b(' . join('|', @stop_words) . ')\b';
$data =~ s/$stop_pat//g;