Select Code to Download

while (chomp($_ = <TOPARSE>)) {
   next unless /\d+\s+(\d+)\s+(1\.2\.3\.4)\s+->\s+(4\.3\.2\.1)\s+(?!TC
+P)([^\s]+)\s+(3456)\s+>\s+(113)/;
   print;
}

while (<TOPARSE>) {
   next unless /^\d+\s+(\d+)\s+(1\.2\.3\.4)\s+->\s+(4\.3\.2\.1)\s+(?!T
+CP\s)([^\s]+)\s+(3456)\s+>\s+(113)/;
   print;
}