my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X``````/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };