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