# requires $" hasn't been altered
#       123456789_123456789_12345678 = 28
sub pc {uc$_[0]|$_[1]&$"x length pop}