Help for this page
<page> <title>Some Title</title> ... .....................</text> </revision> </page>
sub My_Regex { ... $output = $1; print "OUTPUT: $output\n"; }