chomp $user_input;
my $regex = eval { qr{$user_input} };
my $error = $@;

unless (defined $regex) {
   print "Your regex seems to be invalid. Try `perldoc perlretut` for an explanation of valid regexes.\n"
   print "Regex compilation error was: $error";
}