sub LI{return "L"};(@S1,@DK)=(1,2,34);$BXY=sub{map{tr/ //}@_};sub yIJ{join"",@DK,@_};$GPYI=\&LI;print eval$_ for join "",q/'@S1,yIJ($1,\@!,\'8s@DK\',LI)'/,q/^'*&BXY($GPYI.`QIUTS`,*DG);#'/;