Select Code to Download

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"}'

$array[0]GRID    <
$array[1] 213736 <
...
$array[3]15235.2 <
$array[4]-2606.28<
$array[5]596.178<