Versus

• with ...

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