# $cache{$regex} ||= qr/$regex/;

$string =~ s/$cache{$regex}/XXX$1/