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