back2arie/get_text_between_tag.pl

## get_text_between_tag.pl
#!/opt/local/bin/perl
$string = "<TEXT>
First text
Some text
Last text
</TEXT>";

if($string =~ /<(TEXT)>\s*(.*)\s*<\/\1>/gs)
{
    $result = $2;
    print $result, "\n";
}
	#!/opt/local/bin/perl
	$string = "<TEXT>
	First text
	Some text
	Last text
	</TEXT>";

	if($string =~ /<(TEXT)>\s(.)\s*<\/\1>/gs)
	{
	$result = $2;
	print $result, "\n";
	}