HTML Source

#!/usr/bin/perl # This is a simple pre-processor written in perl. $totallines = 0; print "\n"; print "\n"; print "HTML Source\n"; print "\n"; print "\n"; print "

\n";
while($line=) {
  $totallines++;
  $line =~ s//>/g;
  print $line;
}
print "

\n"; print "\n"; print "\n"; print STDERR " `--> myparser.pl - $totallines lines processed.\n"; exit(0);