my ($jsonHash) = values %{ $perl_data->{query}->{pages} };
my $text = $jsonHash->{extract};