sub hobbled {
    my $str =  lc shift;
    my ($p, $x) = (length($str)-1);
    chop($x) lt $x and return 0
        while $x = substr($str, $p--, 2);
    1;
}