sub html_to_js_var {
    my($vars) = shift;
    
    # Declare
    my @html = split(/\n/, $vars->{'html'});
    my $var = $vars->{'js_var'};
    my $in_quotes = $vars->{'in_quotes'}; # A value of either 'single'
+ or 'double' for ' or " respectively
    
    # Format
    
    foreach my $line (@html) {

        
        if ($in_quotes eq "single") {
            $line =~ s/\'/\\\'/g;
            $line =~ s/\</\<\'\+\'/g;
        } elsif ($in_quotes eq "double") {
            $line =~ s/\"/\\\"/g;
            $line =~ s/\</\<\"\+\"/g;            
        }
        
        
    }
    
    return @html;

}
[download]

my @js_code = html_to_js_var({
    "html"        => $html,
    "in_quotes"    => "single" # Could be "double"
});
[download]

What I am trying to do is display Google AdSense ads (or other ads) on my website and others, in a rotation with other ads. I know this is somehow possible (without violating Google's rules) b/c the PHP program OpenX ad server does it.

It is possible with server side scripts - for example the server could keep a list of five ad snippets, and randomly deliver one of them on each request. That way the client always sees the unmodified HTML+JS that Google gave you.

It's also a bit simpler to implement, because it doesn't imply parsing HTML.

I am familiar with SSI but a lot of the sites the ads will be displayed on do not support SSI nor will they have access to the original perl script. This is why I am trying to display the ad through a <script src="..."> method as opposed to SSI.