🚀 go-pugleaf

I am using the following code to limit an archive web site so that it
only contains the ten most recent feature entries.

 while($_ = <IN>) {
   if ($entry_area_flag) {
        /^.*<li>.*?/i && do {  # count list items in archive
                                $archive_entries++;
                                if ($archive_entries >= 10) {
                                        next; # if 10 list items, don't
print
                                }
                         }
        /^.*</ul>.*?/i && do {  # end of archive list entries
                                undef $entry_area_flag;
                                print "Entries: $archive_entries\n" if
$DEBUG;
                          }
   }
    print FILE $_;
    /^.*NEW_ARCHIVE_ENTRIES.*/ && do {
                                     print FILE $New_Entry;
                                     $archive_entries++;
                                     $entry_area_flag = 1;
                                  }
 }

For some reason I get a syntax error with the second pattern matching
sequence in the code ( /^.*</ul>.*?/ ). No matter what I replace the
search pattern with, I get an error. Can someone please help me figure
out a way around this?

Mike