Select Code to Download

while( <> ) {
  chomp;
...
    print "File: $ARGV, Line $.: $_\n";
  }
}

perl -lnE 'if(tr/IMO//c){s/([^IMO]+)/[-->$1<--]/g; say "$ARGV-$.: $_"}
+' file1.txt file2.txt fileXX.txt