$ perl -E 'use Term::ANSIColor; use Data::Dump; my $x = colored("black on white", "rgb000 on_white"); say $x; dd $x'
black on white
"\e[38;5;16;47mblack on white\e[0m"

$ perl -E 'say "\e[38;5;16;47mblack on white\e[0m"'
black on white

##</code><code>##

$ perl -E 'use Term::ANSIColor; use Data::Dump; my $x = colored("black on white", "black on_white"); say $x; dd $x'
black on white
"\e[30;47mblack on white\e[0m"

$ perl -E 'say "\e[30;47mblack on white\e[0m"'
black on white

##</code><code>##

$ perl -E 'use Term::ANSIColor; say colored("red text", "red on_white")'
red text

$ perl -E 'use Term::ANSIColor; say colored("red text", "bright_red on_white")'
red text