@a=$a; @b=$b; emitf | "tr \[a-z\] \[A-Z\]", @a, @b
