$_='=_$ JustsuJ anotherehtona PerlreP hacker,rekcah ;'; @ tilps=split ; ;shift@tilps;split@tfihs; ;split@pop;pop@tilps; ;s{^(.+)(.)(.)\2.+$}{$1$2$3}s||1for@tilps;split@rof1||s{3$2$1$}{$+.2/(.)(.)(+.)^}s; print$_.$",for@tilps;print$/ ; \$tnirp;split@rof,"$._$tnirp ;";