Help for this page
#!/usr/bin/perl use strict; ... $indent--; printf( "%s</ul>\n", ' ' x $indent ); }
sub transform { my ($text) = @_; ... $text =~ s/\.[^.]*\z//; return $text; }