use strict;

while(my $a=<DATA>){
  print $a;
}

__END__
1
2
3
__DATA__
a
b
c

##</code><code>##

a
b
c

##</code><code>##

1
2
3
__DATA__
a
b
c