$_=fpeoiaglclivdlcgglvqhcbwclemhcbwflclvqivcrgqhcbwafak
;sub A{for(($a=1)..pop){$a*=$a*=$a+$a*$a;$a%=999999}$a%
128}sub b{@A=a..pop}print chr A(uc b($1))while s/(..)//
[download]

Fire at will.

Update: trimmed four characters.