Select Code to Download

#! perl -slw
use strict;
...
__DATA__
AGAC      9 -29 -39 -37      27 -28 -39 -37      26 -27 -39 -37      2
+7 -27 -39 12
ACGT      1 -2 3 -4      5 -6 7 -8      9 -10 11 -12      13 -14 15 -1
+6

c:\test>junk6
(
...
)

[[9, -39, 26, -27], [1, -6, 11, -16]]

#! perl -slw
use strict;
...
__DATA__
AGAC <TAB> 9 -29 -39 -37 <TAB> 27 -28 -39 -37 <TAB> 26 -27 -39 -37 <TA
+B> 27 -27 -39 12
ACGT <TAB> 1 -2 3 -4 <TAB> 5 -6 7 -8 <TAB> 9 -10 11 -12 <TAB> 13 -14 1
+5 -16