substr( $_, 0, 16) =~ tr/0-9/AB\-C-HJK/;