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);
}

##</code><code>##

package SomeModule;
use strict;
use warnings;

sub get_data {
    return 'pretend this is a complex data structure';
}

1;

##</code><code>##

use strict;
use warnings;
use SomeModule;

my $data = SomeModule::get_data();
print qq(<span color="red">$data</span>\n);

##</code><code>##

use strict;
use warnings;
use SomeModule;

my $data = SomeModule::get_data();
print qq(\e[0;31m$data\e[0m\n);