$ perl -MO=Deparse  -pe '$_=$'

    LINE: while (defined($_ = <ARGV>)) {
        $_ = $;
    }
    continue {
        die "-p destination: $!\n" unless print $_;
    }

##</code><code>##

    perl -pe '$.-32or$_=$' file | cat -A


##</code><code>##

    $ perl -MO=Deparse  -pe '$_=$.'

    LINE: while (defined($_ = <ARGV>)) {
        $_ = $.
    }
    continue {
        die "-p destination: $!\n" unless print $_;
    }