#!/usr/bin/perl -wuse strict;my $APKC = "BCDFGHJKMPQRTVWXY2346789";$_ = uc <>;s/[-\W]*//g;print index $APKC, $_ for split //, $_;