Select Code to Download

#!C:\Perl\bin\perl.exe
...
}
print "Done\n\n" ;        #Let the user know it is done

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