Little game : Look for the little 'Perl Monks' in the code ;-)
My sig using the same way as the above code :
$i=95;$a=$b="\"-C4\`";$c=$d="#\,3\$U";$e=$f="#\,3\`Y";$g=$h="#\,3\$Q";d();sub d{if($i<103){$i++;$i++;$j=chr($i);$_=chr(unpack(u,${$j}));print;d();}}