#!/usr/bin/perl -w my $header = < MDA and BPM
EOF my $footer = < EOF print $header; my $in_slide = 0; while (<>) { if (/

/) { if ($in_slide) { print "

\n"; } print "\n
\n"; } print $footer;