my @patterns = qw/ test good /;
my $alt = join('|', @patterns);
my $re  = qr/(?:$alt)/;

while (<DATA>) {
        if ( /$re/ ) { print "+ $_"; }
        else { print "- $_"; }
}
__END__
THis is a test
this is only a test
now is the time for all
good men to come to the
aid of their country.