Select Code to Download

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

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