$PDBline; $XMLline; #### if ($PDBline eq $XMLline){etc...} #### my $threshold = 0.75; my $counter = 0; foreach my $word ( split ' ', $PDBline ) { $counter++ if $XMLline =~ /$word/; }
## if ($PDBline eq $XMLline){etc...} ##
## my $threshold = 0.75; my $counter = 0; foreach my $word ( split ' ', $PDBline ) { $counter++ if $XMLline =~ /$word/; }