$something_regex = qr/$regex/;

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