Select Code to Download

my $ports = '(?:'.join('|', @win_ports).')';
while (<LOG>) {
  print if ( m#$regex/$ports#o );
}

my $atom = qr/[1,2]?\d{1,2}/;
my @ports_win = qw( 135 137 139 445 1025 1433 1434 );
my @ports_trojan = qw( 114 15118 4899 );
...
foreach my $port ( 'WINDOWS', @ports_win, 'TROJAN', @ports_trojan ) {
  print "\n\n$port\n-------\n",@{$lines{$port}||[]};
}