#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Data::Dump;

my @colors   = qw(red green blue yellow pink purple brown);
my @drop     = qw(pink brown);
my @expected = qw(red green blue yellow purple);
my $regex    = join "|", @drop;
my @result   = grep {!/$regex/} @colors;

is($regex, q(pink|brown), q(Regex seems to be OK!));
is(@result, @expected, qq(Heureka!));

done_testing();

dd \@drop;
dd $regex;
dd \@colors;
dd \@result;

__END__