Help for this page

Select Code to Download

Select or download this

      ($f) = /^(.)/;
      tr/AEHIOUWYBFPVCGJKQSXZDTLMNR/00000000111122222222334556/;
...
      tr/0//d;
      $_ = $f . $_ . '000';
      s/^(.{4}).*/$1/;