>perl -pE"open OUT => qq(>$ARGV.ext); select (OUT); s/bla/drivel/" a b c

##</code><code>##

C:\tmp\files>dir
 Datenträger in Laufwerk C: ist WINDOWS
 Volumeseriennummer: AE0B-3544

 Verzeichnis von C:\tmp\files

15.01.2020  19:09    <DIR>          .
15.01.2020  19:09    <DIR>          ..
15.01.2020  18:51                12 a
15.01.2020  18:51                12 b
15.01.2020  18:51                12 c
               3 Datei(en),             36 Bytes
               2 Verzeichnis(se), 12.802.805.760 Bytes frei

C:\tmp\files>perl -pE"open OUT => qq(>$ARGV.ext); select (OUT); s/bla/drivel/" a b c

C:\tmp\files>type *

a


"bla bla"

a.ext


"drivel bla"

b


"bla bla"

b.ext


"drivel bla"

c


"bla bla"

c.ext


"drivel bla"