$ perl -MO=Deparse  -lpe '' file

    LINE: while (defined($_ = <ARGV>)) {
        chomp $_;
    }
    continue {
        print $_;
    }