¿Cómo utilizar PERL LWP para descargar el código fuente HTML de Baidu y extraer el título de cada búsqueda? Es decir, si busco "A" en Baidu, por ejemplo
while($content =~ /(\]*?\>(.+?) \)/isg)#Quita la etiqueta h3 primero
{
my $x = $2;
$x =~ s/\<[^\>]*?\>//g # Luego elimina todas las etiquetas html
print $x; # El resto es el contenido del título
}