my $DumbNumberedKey = "";

for my $key (keys %{$perl_data->{'query'}->{'pages'}}) {
$DumbNumberedKey = $key;
}

my $text = $perl_data->{'query'}->{'pages'}->{$DumbNumberedKey}->{'extract'};