Use $_ in Short Code

• Contrary to beginners' belief, $_ improves legibility. Compare:

      while ($line = <>) {
          next if $line =~ /^#/;
          $line =~ s/left/right/g;
          $line =~ tr/A-Z/a-z/;
          print "$ARGV:";
          print $line;
      }