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