C:\test>type junk.dat
a_12_3_5- k_3_4_6-a_12_3_5-
q_1_5_7_9- q_1_5_7_9-
a_9_4_5-c_3_4_6- c_3_4_6-r_4_5_7-
b_1_1_3- v_1_5_7-
d_12_4_5-e_4_5_6- g_5_6_7-d_6_8_6-
b_1_1_7-f_3_8_7_8-d_4_1_4- d_4_1_5-b_1_1_7-f_3_8_3
b_1_1_7-f_3_8_7_8-d_4_1_4- e_3_3_1-f_3_8_7-f_21_3_1-b_1_1_7-a_1_1_1-

C:\test>perl -swple"BEGIN{open BIG};($o,$s)=split;seek(BIG,$o,0);read(BIG,$_,$s)" -- -BIG=junk.dat con >junk2.dat
1 10
20 10
5 10
30 20
^Z

C:\test>type junk2.dat
_12_3_5- k
12_3_5-
q_
3_5- k_3_4
_1_5_7_9- q_1_5_7_9-