my $data = 'pretend this is a complex data structure';
my $is_web_browser = 1;

if ($is_web_browser) {
    print qq(<span color="red">$data</span>\n);
}
else {
    print qq(\e[0;31m$data\e[0m\n);
}