I'd do (untested):

my $re = input-from-user;
eval {my $dummy = qr/$re/; 1} or die "Illegal regexp";
[download]

You might want to use use re "eval" if you want your users to use (?{ }) and (??{ }). Of course, you only do that if you can trust your users.