#!/usr/bin/perl print "\n\n\n"; while(<>){ chomp; next if (/^ *$/); next if (/^--$/); if (/^\#\#\w/){ s/^\#//; print "

$_

\n

\n"; }elsif (/^\#\-/){ print "

\n

\n"; }elsif (/^\#/){ print "
$_\n"; }elsif (/^T\d+:/){ print "

\n

$_\n"; }else{ print "
$_\n"; } } print "

\n\n\n\n";