Select Code to Download

my $data = 'pretend this is a complex data structure';
my $is_web_browser = 1;
...
else {
    print qq(\e[0;31m$data\e[0m\n);
}

package SomeModule;
use strict;
...
}

1;

use strict;
use warnings;
...

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

use strict;
use warnings;
...

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