my @wordlist = $line; #split/\t/, $line;

##</code><code>##

if ($token =~ /('?\w+)/)

##</code><code>##

if ($token =~ /(['\-\w]+)/)

##</code><code>##

my $existingfalsefriend;
$existingfalsefriend{$searchword}++;