my $text = $perl_data->{'query'}->{'pages'}->{/\d+/}->{'extract'};