#!/usr/bin/perl -w

use Text::Balanced qw(extract_tagged);
use strict;

my $text = "this is a test <B>for</b> tags! \n";
my ($extracted, $remainder);
($extracted, $remainder) = extract_tagged($text);

 print "extracted: ";
 print $extracted;
 print "\n";
 print "remainder: ";
 print $remainder;
 print "\n";

exit 0;