#!perl -p y/N-ZA-z/A-za-m/