$_ = pack "u*", pack "w*", qw "8618 110 10586 99202242 2595 37 6940 37 14296 1676204 3991788276668 44 5065 79 72 14757 19 1826816"; $^_ = pack "u*", pack "w*", qw "5596 14922 27 99910898 75 9 114 6314 33 236786"; y/E[@-Z]`/ {`-z} /; eval [download]