Perl coloring