my $foo = '(?{die})';
     s/$foo/XYZ/g; # Eval-group not allowed at runtime, use re 'eval'