#!/data/local/bin/perl -w use strict; my ($infile) = $ARGV[0]; # crum will be created: my ($crum) = ""; open(IN, $infile); while () { (my $slide,my $text) = split(/\#/,$_); (my $num,$text) = split(/\-\-\-/,$text); my $number = int $num; if ($number > 9) { $crum = "0$number"; } else { $crum = "00$number"; } open(OUT, ">note$crum.html"); print OUT "

$text "; close(OUT); }