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