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