while (1) {
 push(@Blocks, substr($Data,0,3)="");
 if ($Data eq "") {
  last;
 }
}