#!perl -plaF $_=chr map(1..ord,@F)/@F