Select Code to Download

my @results;
while ($blocks) {
...
   #mo match at starting position - try from next pos
   $blocks = substr ($blocks, 1); 
}