#!/usr/bin/perl

<>;
while($line = <>) {
    print if defined;
    $_ = $line;
}

##</code><code>##

#!/usr/bin/perl

<>;
while(<>) {
    last if eof;
    print;
}