Select Code to Download

while (<F1> && ($line_stop++ < $line_no)) { 
   while (s/^[\ \t]//g) {} };

use strict;
use warnings;
...
1.0.138.143 80/tcp   open     http
1.0.138.154 443/tcp  filtered https
1.0.139.72 8080/tcp filtered http-proxy