>perl -le"@h{qw(a h k r ad ao as ax ay bs ck cm cz ej fz hm ia ih is iz jk kx lg lv lw nj oj pr ql rk sk td tz vy yc yw zj zu aad acp acq adm ajy alu apb apx asa asm atf axi ayl bbq bcs bdp bhs bml)}=(); print %h=~/128/ && qq(not ),qq(ok # perl $])"

not ok # perl 5.008008

>perl -v

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)