cat text | perl -ne 'chomp ;
              foreach $i(0..length($_)%7) {$x[$i]=substr($_,$i*8,8)};
              foreach $i(0..length($_)%7) {print "\$array[$i]",$x[$i],"<\n"}'