Select Code to Download

my $openesc = "\e[31m";
my $closesc = "\e[0m";

s/^(.*<)\:([a-z]+)/$1$openesc$2$closesc/;