Let this note stand as a testimony to the dangers of cut-n-paste or cargo culting. In my code, I always use while when reading from files (honest!) but in my laziness, I copied and pasted from the base node into my reply without looking the code over well enough.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]