#!perl -pl $_=join$",map/.(.[1-8])/,($_|p..ah8)[92,unpack c7,pywlXOQ]