#!/usr/bin/perl
#
# Read stdin, write stdout. Look for a line that starts with
# <ul followed immediately by a line that starts with <blockquote
# and reverse the order of the lines.
#
# Likewise look for a line that starts with </blockquote followed
# immediately by a line that starts with </ul and reverse those lines
# as well.
#
my $saveline;
my $savekind;
while (<>) {
   if (/^\s*\<ul\b/) {
      if (defined($saveline)) {
         print $saveline;
      }
      $saveline=$_;
      $savekind=1;
   } elsif (/^\s*\<blockquote\b/) {
      if (defined($saveline) && ($savekind == 1)) {
         print $_;
         print $saveline;
         undef $saveline;
      } else {
         if (defined($saveline)) {
            print $saveline;
            undef $saveline;
         }
         print $_;
      }
   } elsif (/^\s*\<\/blockquote\b/) {
      if (defined($saveline)) {
         print $saveline;
      }
      $saveline=$_;
      $savekind=2;
   } elsif (/^\s*\<\/ul\b/) {
      if (defined($saveline) && ($savekind == 2)) {
         print $_;
         print $saveline;
         undef $saveline;
      } else {
         if (defined($saveline)) {
            print $saveline;
            undef $saveline;
         }
         print $_;
      }
   } else {
      if (defined($saveline)) {
         print $saveline;
         undef $saveline;
      }
      print $_;
   }
}
if (defined($saveline)) {
   print $saveline;
   undef $saveline;
}