Select Code to Download

open (my $fd, '<','./dump2.txt') or die "Can't open dump2.txt";
while (<$fd>) {
...
                }
        }
}

FIL.date=2009-07-07      FIL.file_name="/opt/uip/data/class/55019.cso"
+   INH.sca
n_number=1       INH.obs_number=1        INH.scan_type=5         INH.u
+t_date_tim
...
ed_el_offset=-0.0000000e+00      TEL.focus_offset=0      TEL.y_offset=
+0  TEL.sec
ondary_x=0       TEL.secondary_y=0       TEL.secondary_z=0       TEL.s
+econdary_t
heta=0   TEL.ut_date_time="2009-07-07 04:18:55"