#! /usr/bin/perl -w
use strict;$_=qq/\n/x25;%_=split/[&,:\;\$=\+\/]/,
'61;_m$6b=o;63+n=48&l:6c$j/72+eiq$65=dhp;73$\=6'.
'e;`$74,]b=6f+a$75;[+68=c;20:^fk;50/g+4a;Z';while
(($;,$/)=each%_){foreach$,(split//,$/){substr($_,
ord($,)-90,1)=chr(hex($;))}}print;