$z = int(rand(1000)+1); $y = 'reverse ' x $z;
eval eval qq{$y "@{['\"n\\\\.rekcaH','lreP','rehtonA','tsuJ\"','tnirp']}"}