Help for this page
foreach $line (@data) { if ( $line =~ /$one/ && $line =~ /$two/ ) { ... ... } }
if (index($line,$one) != -1 && index($line,$two) != -1) { ... }