perl -e 'print "there s a \033[0;31m red house \033[0;0m over yonder\n"'