foreach(split/,/,"74,43,-2,1,-84,65,13,1,5,-12,-3,13,-82,80,-11,13,-6,-76,72,-7,2,8,-6,13")
{$a+=$_;print chr $a;}