That can be dangerous. Here's a valid regex:

[ ~/tmp ] $ perl -wle 'use strict; my $x = qr(s/.*/system("rm *")/e); 
+print $x;'
(?-xism:s/.*/system("rm *")/e)
[ ~/tmp ] $
[download]

You're probably going to need additional regex validation.