@z=split(//,BGu6pCozwKzR);@y=qw(zlz hqa zuo reg rqz fpx 72 26 25 53 25 06);while(@z){@a=split(shift@z,crypt(shift@y,pop@y));@g=split(pop@z,$a[1]);print $g[0]}