while($line=<>){
...
}

##</code><code>##

my $line2=<>;