#!/usr/bin/perl -w
use strict;

my $s=q$qwertyui$;my @s=split //,$s;my %s;my
$i=0;while($a=shift @s){$s{$a}=$i++;}$_=qq|w
uqwu                                    ewyw
wyuw                                    utqt
qqte                                    wwew
uywu                                    rwut
qtqw                                    qwwy
uwyi                                    wutw
yqwt                                    ywue
qtqw                                    eqwt
ywue                                    wytq
tqww                                    qwtw
wtrw                                    yrwt
ywueqteqir|;s|[^$s]||g;$_=join('',map{$_=$s{
$_};}split(//));s/.../"\"\\$&\""/ege;eval;