Select Code to Download

my $tnt = [
           "http://www."    ,
...
    }
    return $url;
};

while( $u = <STDIN> ) {
    for( $i=1; $i < length($u)-1; $i++ ) {
...
# now loop over %matches finding top 30 of:
#     $matches($key) * length($key)
#