my $regex = "(?<!foo)\\s+bar\\s+test";
my $txt = "foo    bar \ntest";

if($txt =~ /($regex)/i) {
   print "match";
} else {
   print "not a match";
}