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

##</code><code>##

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