$text = '<foo>3</foo><foo>14</foo><foo>159</foo>';
while($text =~ /<foo>(.*?)<\/foo>/g)
	{
	push (@la,$1);
	};
sort @la;	
foreach(@la)
	{
	print "<foo>$_<\/foo>\n";
	}