use strict;
use warnings;
use Mojo::DOM;
my $dom = Mojo::DOM->new()->parse(do { local $/; <DATA> });

# here you can use any other tag than 'title' too:
print $dom->at('title')->text;


__DATA__
<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>
  <page>
    <title>Some other Title</title>
    <id>11497077</id>
    <revision>
      <id>42290</id>
      <timestamp>2011-05-02T16:47:40Z</timestamp>
      <contributor>
        <username>some Other User Name</username>
        <id>2688</id>
      </contributor>
      <minor />
      <text xml:space="preserve">some Other Text ...
.........
.........
.....................
.....................
.....................</text>
    </revision>
  </page>