#!/usr/bin/perl -w
use strict;

while (<DATA>) {

        chomp;
        print;
        print /(?=.*foo)(?=.*bar)/s ? "\t match \n" : "\t no match \n";

}


__DATA__
foo bar
bar foo
foo
bar
baz
barbazfoo
foofoobar


##</code><code>##

foo bar  match
bar foo  match
foo      no match
bar      no match
baz      no match
barbazfoo        match
foofoobar        match