$string =~ s/\Q$pat\E/$$ref/g;