perl -ne "print if /error/ || $last=~/error/; $last=$_;" test_log.txt