Help for this page
0 10 ab hellothere 4 5 ac notimportant ... 4 5 ac notimportantnotimportant 2 3 ad notimportantnotimportant
0 20 40 60 100 120
hellothere ... notimportantnotimport notimportantnotimport
my %seqs foreach my $sline (@slines){ my($start,$size,$name,$text) = split /\s+/, $sline; $seqs{$name} = $text; }