my ($extracted, $remainder) = extract_tagged($text, '<B>', undef, '.*?(?=<B>)');