find abbreviation right after a specific word using regular expression

Question

My goal is to identify abbreviation word that appears right after @PROG$ and change it to @PROG$. (eg. ALI -> @PROG$)

Input s = "Background (UNASSIGN