Select Code to Download

#! perl -slw
use strict;
...
$_->join for map{
    async( \&worker, $ARGV[ 0 ], @starts[ $_, $_ +1 ] )
} 0 .. 3;

perl -E"say qq[\@record ${\($_-1)}\n\@pqrs\n+record ${\($_-1)}\n+pqrs\
+n\@record $_\nabcd\n+record $_\nefgh] for map{ $_*2-1 } 1 .. 25" > te
+st.fastq
C:\test>head test.fastq
...
efgh
@record 2
@pqrs

C:\test>988536 test.fastq
[1] @record 0
...
[4] @record 49
[3] @record 36
[3] @record 37

[ 8:52:25.06] C:\test>988536 sample.fastq | wc -l
2500000

[ 8:52:57.92] C:\test>