Select Code to Download

#!/usr/bin/perl
use strict;
...
  $indent--;
  printf( "%s</ul>\n", '  ' x $indent );
}

sub transform {
  my ($text) = @_;
...
  $text =~ s/\.[^.]*\z//;
  return $text;
}