my $regex = "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}";
my @win_ports = (135, 137, 139, 445, 1025, 1433, 1434);
my @trojan_ports = (113, 15118, 4899);
my $file = "C:\\fw.log";
open LOG, "$file" || die "Can't open fwlog: $!"\n;
while (<LOG>) {
foreach $port(@win_ports) {
   if (/$regex\/$port/g) {
      print 
}