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

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

##</code><code>##

$something_regex = qr/$regex/;

$string =~ s/$something_regex/XXX$1/