Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
!
Sbjct: TTAAAATTCCCCCCGGGGGGG 475

Select or download this

D:\Perl\test>254442
$VAR1 = {
...
          'stats' => '140 8778 333 D 140 8778 334 -7 3.60e-56 -259 95.
+00',
          'left_instance' => 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGG
+GGGGGGGCCTTTTAAAATTCCCCCC-GGGGGG'
        };