for $iphostname ($fh) {
    print $iphostname if /^object-group/ .. /\d{4}:\d{4,6}:\d{3}/;
}