Haven't posted for a long time. Well, here's my second ever JAPH.
Not very interesting but never mind, eh?

#!/usr/bin/perl -w

@c=(1249211252,543256175,1952998770,544236914,1814063201,1667982706,33
+);
foreach $b (@c){for(0..4){$a[$_]=int($b/(2**((3-$_)*8)));
$b-=$a[$_]*(2**((3-$_)*8));}for(0..4)
{print chr($a[$_]);}}
[download]

Hope it's not too similar to other posts.
aZ.