@firstblock = @text1[1..($#text1-1)];
# remember the left index of the slice can never be greater than the right... no -1

##</code><code>##

foreach $value (@arrBlock) {
   print "$value\n";
}