Select Code to Download

file.txt
--------------
...
object-group service WEB_TCP tcp
 port-object eq 80
--------------

use strict;
...
for $iphostname ($fh) {
  print $iphostname if (/^object-group/ ... /(\d{1,3})\.(\d{1,3})\.(\d
+{1,3})\.(\d{1,3})$/);
}