#!perl -pl
$_=join$",map/.(.[1-8])/,($_|p..ah8)[unpack c8,'OQX\lpwy']