Backslash the dollarsign in the perl reject replacement of PORT