Help for this page
@interesting_lines = grep {/$string1/ xor /$string2/} @log;
@interesting_lines = grep {/$string1/ and /$string2/} @log;