perl script that uses cat and sed to add ansi color codes to text