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

##</code><code>##

 perl -e 'print "\b" . substr("|/-\\", time % 4, 1 ) while 1'