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