sub hIppO { my %nonStyle = { "BACKGROUND" => "background-image" ,"BGCOLOR" => "background-color" ,"TEXT" => "color" ,"LINK" => "a:link" ,"ALINK" => "a:active" ,"VLINK" => "a:visited" }; my $adata = splitUnQ(shift); my ($ila,$hsd); for (keys %$adata) { my $canon = uc $_; if ( substr($nonStyle{ $canon },0,2) eq q[a:] ) { my $pfysti = sprintf q[%13s]=>$nonStyle{ $canon }; ($hsd .= <<" EOHDOC") =~ s#^\s+##; $pfysti { color : $adata->{ $_ } ; } EOHDOC } else { $ila .= " $nonStyle{ $canon } : $adata->{ $_ };" } } if ( $hsd ) { (my $ilp = <<' EOHDOC') =~ s#^\s+##; EOHDOC $ila = qq[]; } else { $ila = qq[]; } return ($hsd,$ila); }