Select Code to Download

use strict;
use warnings;
...
$t =~ s/([CG]AT)/colored($1,'bold red')/ge;

print $t, "\n";

use strict;
use warnings;
...
}

print $t, "\n";