my $_word = defined($_=shift) ? $_ : die "usage: $0 <word>\n";
    chomp($_word);
    my ($word) = $_word =~ /([[:alnum:]]+)/;