Select Code to Download

PATH = "E:/path/to/html/file"
FILE = "test1InLineCSS.html"

use Config::General;

...
my $filename = join('/',$config{PATH}, $config{FILE});

open INFILE, $filename or die "Can't open $filename: $!";

use strict;
use warnings;
...
   # just print to STDOUT ... change to fit your needs
   print $token->as_is; 
}

body { text-color: black; }
u,b,i,em,img,big,strong {text-decoration: none;}
...
h1,h2,h3,h4,h5,h6 {text-indent: 10px; word-spacing: 30px; letter-spaci
+ng: 3px; color: black;}

p,li {text-indent: 10px; word-spacing: 10px; letter-spacing: 2px; colo
+r: black; }