$text =~ /extractor/	# i.e. match anywhere in the string

##</code><code>##

	$text =~ /\G extractor/gc	# i.e. match at current pos in string

##</code><code>##

	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 ];