#!/usr/bin/perl -l

*{'\''}=sub{$_=q#_$,'3'tilps+esrever}rhc{pam+tnirp;~58188043000~q=+_$;
,2$,$)}4{d\()*.().0^(,s;))!,1001609521224866653113531199,q nis!qq(lave
(sba=_$#;eval reverse+split//;};&{'\''}