#!/usr/bin/perl -w
use strict;$;="qFHG ZMLGSVI kVIO SZXPVI!\n";@$=('a'..'z', 'A'..'Z');($/=join('',
@$).",")&&(@$=reverse(@$));$$=(join('',@$)."!");eval("\$;=~y/$$/$//;");print $;;