#!/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