$ 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