my @rx = (qr|^foo |, qr| bar$|);
my $passed = 1;
foreach my $rx (@rx) {
   $passed = 0 unless $test =~ /$rx/;
}
print $passed ? "Passed\n" : "Failed\n";
[download]