use warnings;
use strict;

while (<DATA>) {

   s|^(?:<bl>)?(.*?)(?:</bl>)?$|<listitem>$1</listitem>|;
   print
}
__DATA__
<bl>List item 1
List item 2
<bl>List item a
List item b
List item c</bl>
List item 3</bl>