<!--ADULTSONLY-->
<meta http-equiv="pics-label" content='(pics-1.1 "http://www.icra.org/ratingsv02.html" l gen true for "http://asstr.org" r (cz 1 la 1 lb 1 lc 1 na 1 nb 1 nc 1 nd 1 ne 1 nf 1 ng 1 nh 1 ni 1 oa 1 ob 1 oc 1 of 1 og 1 oh 1 va 1 vb 1 vc 1 vd 1 ve 1 vf 1 vg 1 vh 1 vi 1 vj 1 vk 1) "http://www.rsac.org/ratingsv01.html" l gen true for "http://asstr.org" r (n 4 s 4 v 4 l 4))' />
<SCRIPT LANGUAGE=JavaScript SRC=/scripts/common.js></script>
<SCRIPT LANGUAGE=JavaScript SRC=/scripts/scroller2.js></script>
<SCRIPT Language="Javascript">
<!--
runScroller();
//-->
</SCRIPT>
<pre>
#!/usr/bin/perl


use strict;
use File::Copy;



my $file = shift || die "please supply a file";

copy($file,"$file.messed") or die "cannot copy file: $!";

open(FH,"$file.messed") or die "cannot open file: $!";
open(OUT,"&gt;$file") or die "cannot open file: $!";

#I found the fucked up codes in this form by using vis -o



while(&lt;FH&gt;)
   {
	s/\342\200\231/'/g;
	s/\342\200\234/"/g;
	s/\342\200\235/"/g;
	s/\342\200\246/.../g;
	s/\s*\342\200\250\s*/\n\t/g;

	s/\311/.../g;

	s/\320/-/g;
	s/\325/'/g;
	s/\324/'/g;
	s/\322/"/g;
	s/\323/"/g;

	s/\015\n/\n/g;
	s/\015/\n/g;

	print OUT;
   } 





