Re^2: Is it possible to include colored text in formatted output using write

Hi Bliako, this is what I used to repro the issue:

use strict;
use warnings;
use Term::ANSIColor qw (color colored colorstrip :constants);

my $str = "The purpose of the " . colored ("ts", "green") . " script i
+s to ...";

print "$str\n";

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$str
.

write;
[download]

The way forward always starts with a minimal test.

Comment on Re^2: Is it possible to include colored text in formatted output using write Download Code