#!/usr/bin/perl

use LWP::Simple qw(get);;
use URI::Escape qw(uri_escape);

my $codedQuery = uri_escape( '"Seņor X"' );
my $url="http://www.altavista.com/cgi-bin/query?pg=q&sc=on&hl=on&q=$codedQuery&kl=XX&stype=stext&search.x=27&search.y=7";
print "Conectando a $url\n";
my $respuesta = get( $url );
my ($encontrados) = ($respuesta =~ /\S+;(\d+) pages found/gs);
print "Encontradas $encontrados respuestas\n";