use Text::Balanced ':ALL';

	my $text = "this is a test <B>for</B> tags! \n";
	my @data = extract_multiple( $text, [ \&extract_tagged ]);

	use Data::Dumper 'Dumper';
	print Dumper [ @data ];