0 10 ab  hellothere
4 5  ac  notimportant
2 3  ad  notimportant

10 23 ab hellloagainhellloagainnn 
4 5   ac notimportantnotimportant
2 3   ad notimportantnotimportant


##</code><code>##

0 20
40 60
100 120

##</code><code>##


 hellothere
 notimportant
 notimportant

 hellloagainhellloagai
 notimportantnotimport
 notimportantnotimport


##</code><code>##

my %seqs
foreach my $sline (@slines){
      my($start,$size,$name,$text) = split /\s+/, $sline;
      $seqs{$name} = $text;
      }