Foro - Perl en Español

Buenas tardes.

Estimados, tengo otra consulta.

Tengo el siguiente enlace: http://www.easypolls.net/poll?command=g ... 456e71cfb4

el cual me devuelve aparentemente un JSON.

Estoy realizando un GET con Perl a esa dirección, y me muestra todo ese código.

Casi al final hay un código así:

"pollKey":"dk3V149"

La palabra "pollKey" no cambia, siempre es la misma.

El valor que tiene a continuación es el que cambia aleatoriamente pero siempre tiene un tamaño de 7 caracteres (letras y números).

¿Cómo puedo hacer para extraer el valor de "pollKey" y guardarlo en una variable?

He intentado con expresiones regulares pero aún no doy con la correcta. Por favor, si pueden ayudarme, gracias...

El ejemplo que tengo es el siguiente:
#!/usr/bin/perl
use strict;
my $cadena =' "mensaje":"Hola este es mi ejemplo, ¿te gustó? FIN" '
chomp($linea);
if ($linea =~ /(\"mensaje\":\")([a-zA-Z]).(\s)/)
{
print $1;
print $2;
print $3;
}
}

Lo que necesito es que extraiga todo el mensaje HASTA que encuentre la primera comilla doble, desde " hasta ".

Resultado: Hola este es mi ejemplo, ¿te gustó? FIN

el cual debería obtener. GRACIAS, POR SU AYUDA.

Estimado, tengo este código:
#! /usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;

#/emPoll.js?p=541e13e2e4b088456e71d8ce"></script>
#en el código fuente de esta página contiene 3 enlaces iguales lo cuales varían el número o la secuencia ejemplo:
#541e13e2e4b088456e71d8ce
#541e13e2e4b088456e71d8RS
#541e13e2e4b088456e71d8XX

my $link = "http://www.eldeber.com.bo/home.php";
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0");
my $req = HTTP::Request->new(GET => $link);
my $response = $ua->request($req);
my $content = $response->content();
my $codigo = $response->code();

#print $content;
if ($content =~ /(\/emPoll.js\?p\=)(.+)*$\"\>\<\/script\>/)
{
# print $1;
print $2;
print $3;

}

Tengo este código el cual, me muestra el primer código: 541e13e2e4b088456e71d8ce.

Pero necesito ayuda para poder obtener el resto y visualizarlos.

SALUDOS...

Muchas gracias por la ayuda, me fue de mucha utilidad. Ya solucioné mi problema. Gracias, estimado