Select Code to Download

#! /usr/local/bin/perl -w

...
}

}

@D1 = map lc $_, $D1 =~ /(\w+)/g ;
my @D2 = map lc $_, $D2 =~ /(\w+)/g ;
...
my $similarity = 2 * ( $intersection/$total ) ;

print "\n$similarity\n\n" ;