snippetsmania.com
Post and share your code snippets

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

source