perl -MPath::Tiny -n0e 'sub translate {map tr/a-z/A-Z/r, @_} path($ARGV =~ s/in$/out/r)->spew(translate($_))' *.in