#!/usr/bin/perl $_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#omncd^hc<#^Z/\!(<}.;oqdbk`rr(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?( $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD( $AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6