my ($ip1, $port1, $ip2, $port2) =
  ($inLine =~ m|^from ([0-9.]+)/?([0-9]*) to ([0-9.]+)/?([0-9]*) on interface$|)