#!perl -plaF $_=chr unpack("%C*")/@F