use warnings;
use strict;
use Test::More;

my $regex = qr/foo(.+)/;

like "foobar", $regex;
ok "foobar" =~ $regex;
is $1, "bar";
unlike "quzbaz", $regex;
# ... lots more test cases here!

done_testing;