#!/usr/bin/perl -w
use strict;
use Text::Balanced ('extract_tagged');

my $text = "this is a test <B>for</B> tags! \n";
pos($text) = index $text, '<';

my $extracted = extract_tagged($text);

printf "extracted: %s$/", $extracted;
printf "remainder: %s$/", $text;
exit 0;