@interesting_lines = grep {/$string1/ and /$string2/} @log;