for my $cnt (0 .. 3) {
     my $t=<DATA>;
     print $t;
  }

##</code><code>##

  for my $cnt (0 .. 3) {
     $_=<DATA>;
     print;
  }