Help for this page
%j = ( ... ); print ${j}{u}{s}{t}{a}{n}{o}{t}{h}{e}{r}{p}{e}{r}[1]{h}{a}{c}{k}{e}{r};
($_='jjjuuusssttt annootthheer pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;