$num =~ s{(.)(z*)$}{

##</code><code>##

    $left =~ tr/0-9a-y/1-9a-z/ or $left = "1";