And this snippet reverses the actions of the snippet above, converting numbered headlines to outline mode header level indicators.

#!/usr/bin/perl -p
if (/^((\d+\.)*\d+)/) {
    my $h = $1;
    my $l = ($h =~ tr/././) + 1;
    s/^((\d+\.)*\d+)/'*' x $l/e;
}
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com