$bullopen = $_ =~ s/<bul-list>//g;
$bullclose = $_ =~ s/<\/bul-list>//g;