my $pat = <STDIN>; # random nonsense from a user
my $re = eval { qr/$pat/ };

die "Nasty regex!: $@\n" if $@;