##
#!/usr/bin/env perl
use strict;
use warnings;
my $ul = 0;
while () {
$ul = 0 if /<\/ul>/;
next if $ul;
print;
if (//) {
$ul = 1;
for (glob 'images/*.png') {
my @name = map { "\u$_" } split /_/ => (/images\/(.+)\.png/)[0];
print qq{ - @name
\n};
}
}
}
__DATA__
mchtd.info
##
##
mchtd.info