http://qs1969.pair.com?node_id=663252

zer has asked for the wisdom of the Perl Monks concerning the following question:

Good evening, I am running into a wierd bump with some older code of mine. What the following code does is behave as a proxy on a website changing minor things. The problem it runs into is left and right double quotes which appear on certain websites. When it spits them out it isnt the same;
#!/usr/bin/perl use strict; use warnings; use CGI; binmode(STDOUT,":utf8"); #it doesnt print right with it here or not my $t=qq(<img border="0px" src="http://server.com/T.png" alt="T.png" +/>); my $req = CGI->new(); use LWP::Simple; my $content= get($req->param('go')); $content=~s|<div id="jump-to-nav">.*?</div>||g; $content=~s|<div class="printfooter".*|</body></html>|msg; $content=~s|"(/tmpwiki/phase3)|"http://server.com$1|g; $content=~s|<head>.*</head>|<head><meta http-equiv="Content-Type" cont +ent="text/html;charset=utf-8" /><title>BTT</title></head>|msg; $content=~s|(\<img)|$1 border="0px" |msg; $content=~s|BTT400:||; $content=~s|$t.*?$t||msg; if ($req->param("f")){ print "Content-type: application/x-download\nContent-Disposition:attac +hment;filename=\"Business Requirement.doc\"\n\n".$content; }else{print $req->header().$content;}