Help for this page
Select Code to Download
Select
or
download this
my ($extracted, $remainder) = extract_tagged($text, '<B>', undef, '.*?(?=<B>)');