# Test for (in)valid regex
# perl regex 
#
# (you may need to disable warnings)

my $pattern = shift;
my $regex = eval { qr/$pattern/ };
die "Your regex doesn't seem valid : $@" if $@;

Test for (in)valid regex

regex

Perl