@compare = "/^foo /", "/ bar$/";
$i=0
foreach (@compare){
unless $test =~ @compare[$i]){
print $test;
$i++
}