#!/usr/bin/perl
use warnings;
use strict;
use MyTemplate;
my (@slide, $titel);
while(<>) {
s/\[([^\]]+)\]/$1<\/a>/g;
unless($titel) {
$titel = $_;
} elsif(/^\t(.*)$/) {
$slide[$#slide]->{slide_body} .= $1;
} elsif(/^(.*):$/) {
push @slide, { slide_titel => $1, slide_body => "", slide_num => scalar @slide, slide_next => $#slide + 2 };
}
}
print MyTemplate->new($0, "TMPL")->substitute(
titel => $titel,
slides => \@slide,
)->print;
__END__
__TMPL__
[titel]
(...)
[slides]
[slide_titel]
[slide_body]
[/slides]