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