perl -ne 'print /ERROR/ ? "\033[1;31m\033[40m$_\033[0m" : $_ ' my.log