Help for this page

Select Code to Download


  1. or download this
    my %longNames = map { ($_=>1) } @longNames;
    for my $l (2..2990) {
    ...
            print"\n***********Matched*************\n";
        }
    }