"I'm asking out of curiosity so I want even the bad answers"

Is this bad enough ?

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

I had to fake a translate() to test it...