my ($first, @rest) = <DATA>;
warn "first: $first";
warn "rest:\n@rest";
__DATA__
header
line1
line2

##</code><code>##

user@unforgiven:~$ perl tst.pl
first: header
rest:  line1
 line2
user@unforgiven:~$