# 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 $@;