# using the 'eval' feature of a substitution...
$regex = "s/foo/system 'rm -rf /'/eg";

# ... or even...
$regex = "m/(?{ system 'rm -rf /' })/";