Help for this page
>perl -pE"open OUT => qq(>$ARGV.ext); select (OUT); s/bla/drivel/" a b + c
C:\tmp\files>dir Datenträger in Laufwerk C: ist WINDOWS ... "drivel bla"