$_ = q|hb2Gbb5hhDei4dh0BhlFbi201hoC4do0CdsBbp201hvDev5dv0ChzG|;
print "Debug:  $_\n";
        s;[1-9];>$&;g;
print "Debug:  $_\n";
        s;[A-I];^$&;g;
print "Debug:  $_\n";
        y|A-I|1-9|;
print "Debug:  $_\n";