....
tqww                                    qwtw
wtrw                                    yrwt
ywueqteqir|;s|[^$s]||g;$_=join('',map{$_=$s{
$_};}split(//)); s/.../"\"\\$&\""/ege; eval;