/^ \+/ && do { push(@HTML,"
",$_,"
"); next; }; # Linier startende med non-space (slide overskrift)
skal centreres /^\S/ && do { push(@HTML,"
",$_,"
"); next; }; # Alle andre linier (Perl-kode) PRE-formatteres {
push(@HTML,"
",$_,"\n
"); next; }; } $slide++; # Tæl slidenr op
open(FH,">slide.${slide}.html") || die; # Åbn en html-fil
print FH "
"; # Skriv @HTML til filen close FH; }