Some Title

Some Title 1149707 4220 2011-04-02T16:47:40Z some User Name 268 some Text ... ......... ..................... ..................... ..................... ##

##

sub My_Regex
{
	my($raw_text, $tag) = @_;
	
	$raw_text =~ /<$tag>{1}(.*)(<\/$tag>){1}/;
	$output = $1;
	print "OUTPUT: $output\n";
}