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