$y = regextract($x, "[A-Z]*")
