#!/usr/bin/perl

use Modern::Perl;

$_ = qq@ 

<page>
    <title>Some Title</title>
    <id>1149707</id>
    <revision>
      <id>4220</id>
      <timestamp>2011-04-02T16:47:40Z</timestamp>
      <contributor>
        <username>some User Name</username>
        <id>268</id>
      </contributor>
      <minor />
      <text xml:space="preserve">some Text ...
.........
.....................
.....................
.....................</text>
    </revision>
  </page>

@;


s@.*?<text.*?>(.*?)</text>.*@$1@s;

say;
[download]