my $line = <FILE>;   # read the next line
print $line;
##</code><code>##

print scalar <FILE>;    # read the next line and print it