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

my $regex = qr/foo/;

  like "foobar", $regex;
unlike "quzbaz", $regex;
# more test cases here

done_testing;