Based on the way the "-n"
and "-p"
switches are implemented in Perl 5, you can write a seemingly incorrect program including }{
:
ls |perl -lne 'print $_; }{ print "$. Files"'
which is converted internally to this code:
LINE: while (defined($_ = )) {
print $_; }{ print "$. Files";
}