Select Code to Download

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

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

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

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