Somewhat lame, but gets the job done. :)

sub{print map{chr}grep{not(--$_[0]or shift)}map{$a=($a+

                      2003

                    )%253}(1..

                      2003

)x2}->(map hex,"692FB4FD6CC52E17D8DDB290CDCC28E6"=~/(..)/g);
[download]

Makeshifts last the longest.