my @stopwords = qw/ i'd add all my stop words in here /;
my %stop = map { lc $_ => 1 } @stopwords;

sub findwords {
  my $string = shift;
  my (@ok, %seen);
  while ($string =~ /((\w|')+)/g) {
    push @ok, $1 unless $stop{lc $1} or $seen{lc $1}++;
  }
  return @ok;
}}