$test =~ /^foo /;
$test =~ / bar$/;


##</code><code>##

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