$title

#!/usr/bin/perl -w $title = "The Burro Programming Language, v2.0"; $lhs_input = "../src/Burro.lhs"; $lhs_temp = "lhs.tmp"; $html_temp = "html.tmp"; $html_output = "burro.html"; open INFILE, "<$lhs_input"; open OUTFILE, ">$lhs_temp"; while (defined ($line = )) { chomp $line; if ($line =~ /^\>(.*?)coding\:(.*?)$/) { # pass } elsif ($line =~ /^\>(.*?)$/) { print OUTFILE " $1\n"; } else { print OUTFILE "$line\n"; } } close INFILE; close OUTFILE; system "Markdown.pl <$lhs_temp >$html_temp"; open INFILE, "<$html_temp"; open OUTFILE, ">$html_output"; print OUTFILE <<"EOH"; $title EOH while (defined ($line = )) { print OUTFILE $line; } print OUTFILE <<"EOF"; EOF close INFILE; close OUTFILE; system "rm *.tmp";