Not sure what you mean:
Input:
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 100.00
+280 0 0 1 280 3402569 3402290 4e-140 506
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 99.64 2
+80 1 0 1 280 227880 228159 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 99.64 2
+80 1 0 1 280 2704973 2704694 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 99.64 2
+80 1 0 1 280 4018745 4019024 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 99.64 2
+80 1 0 1 280 4149866 4150145 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 99.64 2
+80 1 0 1 280 4191268 4191547 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| 98.93 2
+80 3 0 1 280 3924929 3925208 9e-136 491
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 100.00 2
+80 0 0 1 280 459101 459380 4e-140 506
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 99.64 28
+0 1 0 1 280 1156698 1156977 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 99.64 28
+0 1 0 1 280 3643499 3643220 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 99.64 28
+0 1 0 1 280 4302307 4302028 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 99.64 28
+0 1 0 1 280 4343709 4343430 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 99.64 28
+0 1 0 1 280 4474830 4474551 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| 98.93 28
+0 3 0 1 280 4568646 4568367 9e-136 491
Output:
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
100.00 280 0 0 1 280 3402569 3402290 4e-140 506
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
99.64 280 1 0 1 280 227880 228159 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
99.64 280 1 0 1 280 2704973 2704694 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
99.64 280 1 0 1 280 4018745 4019024 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
99.64 280 1 0 1 280 4149866 4150145 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
99.64 280 1 0 1 280 4191268 4191547 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|315134697|dbj|AP012030.1| Escheri
+chia coli DH1 (ME8569) DNA,...
98.93 280 3 0 1 280 3924929 3925208 9e-136 491
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
100.00 280 0 0 1 280 459101 459380 4e-140 506
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
99.64 280 1 0 1 280 1156698 1156977 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
99.64 280 1 0 1 280 3643499 3643220 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
99.64 280 1 0 1 280 4302307 4302028 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
99.64 280 1 0 1 280 4343709 4343430 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
99.64 280 1 0 1 280 4474830 4474551 2e-138 500
10_25_res.txt:Locus3034v1rpkm4.98 gi|260447279|gb|CP001637.1| Escheric
+hia coli DH1, complete genome
98.93 280 3 0 1 280 4568646 4568367 9e-136 491
The replacement is done in the s/($regex)/$subst{$1}/ statement, and you can direct the output to a file by:
./program.pl > output_file.txt
There does appear to be a stray carriage return in the output - the code may needs a chomp somewhere...
|