my $i = index $block, "\n";
while($i > 0){

    push @lines, substr($block,0,$i);
    substr($block,0,$i+1,'');
    $i = index $block, "\n";

}