sri@odyssey:~$ perl -MO=Deparse -lpe '}{*_=*.}{' test.txt
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
}
{
    *_ = *.;
}
{
    ();
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK


sri@odyssey:~$ perl -MO=Deparse -pe '}{*_=*.}{' test.txt
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    ();
}
{
    *_=*.;
}
{
    ();
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

sri@odyssey:~$ perl -MO=Deparse -e 'while (<>) {}; print $.' test.txt
while (defined($_ = <ARGV>)) {
    ();
}
print $.;
-e syntax OK