What makes you think that $r = qr/STRING/i; s/$r/REPL/g; would work where s/STRING/REPL/ig; doesn't?

qr/ord(226)/ fails in exactly the same way s/ord(226)/'/ig; does. Both match "ord226" and set (if matched) $1 to 226.