perl -lpe '}{*_=*.}{' file


##</code><code>##

    $ perl -MO=Deparse  -lpe '' file

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


##</code><code>##

    $ perl -MO=Deparse  -lpe '}{*_=*.}{' file

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