#!/usr/bin/env perl use strict; use warnings; my $ul = 0; while () { $ul = 0 if /<\/ul>/; next if $ul; print; if (/