Select Code to Download

foreach my $line (@port) {
    my @PORTS = split('\n', $line);
...
        }
    }
}

for my $str ( map { split /\n/ } @port ) {
    ...
}