I got the requirement to find fields which match multiple regex at the same time

while (<DATA>){
    if (/foo/ && /bar/){ print $_ } }

__DATA__

fobur
barfoo
foobar
fobar
bar
foo
[download]