#penghilangan stopword
      my @words = qw(
         untuk
         dari
         di
         yang
         dan
         ini
         itu
         atau
         pada
         ke
         adalah
         setelah
         selalu
         daripada
         dengan
         dalam
         akan
         juga
         tidak
         karena
         tersebut
         ada
         bisa
         sebagai
         sudah
         saat
         oleh
         harus
         menjadi
         secara
         last
         modified
         lebih
         hanya
         para
         telah
         seperti
         sementara
         kepada
         namun
         sangat
         lalu
         belum
         bagi
         tak
         kalau
         bahwa
         tetapi
         dapat
         antara
         banyak
         kembali
         saja
         atas
         hingga
         melalui
         terjadi
         tapi
         sampai
         tentang
         sama
         agar
         memang
         lagi
         selama
         mencapai
         terus
         yakni
         the
         terhadap
         ketika
         merupakan
         sehingga
         sebuah
         jika
         bukan
         jadi
         sejumlah
         sejak
         perlu
         mulai
         jelas
         pun
         masih
         mengatakan
         menurut
         sekitar
         lain
         melakukan
         baru
         beberapa
         hal
      );
      my $regex = join '|', map qr/\b\Q$_\E\b/, @words;
      $kata =~ s/$regex//g;