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