$x='y/A-Za-z/B-ZAb-za/;'x<>;$_=<>;eval$x;y/!?/?!/;print