#!/usr/bin/perl -l

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