#!perl -p0
y/_ZA-z/_A-za/until/Th/