I'm having trouble understanding your intent - what do you want to do if $tmp does not match an IPv4 address pattern ?

Adding $tmp did not change the flow, or logic.

It may be more helpful to print

#REPLACE THIS# print "Help Me\t" . $line->source_str . "\n";
 print "IPv4 not matched in line\[" .$line->print() . "] str=". $line-
+>source_str . ";\n";
[download]

Yes - the "->obj()" method will return an object. What attribute of that object did you need to extract ?

I also noticed another place where you are throwing away information the same way as my @source:

  } else { my @protos = $configs{$fw}->obj($line->proto_str) }
[download]

Here, the block-scoped @protos is thrown away.