#! /usr/bin/perl -n

#
# Minimalistic script to display referers from 
# some pre-defined web search engines.
#  (Currently google, altavista, ask.com, eniro.se, msn)
#
#                                           http://netilium.org/~mad/
#                                 Martin Adolfsson <mad@netilium.org>
#                                                         21-Oct-2004
#

if ( s/^([0-9.]+).*(google|altavista|web.ask.com|search.msn.com|eniro.se).*[?&]q=([^&"]*).*/$1.' 'x(17-length($1)).$2.' 'x(15-length($2)).$3/e ) {
  s/%([0-9a-fA-F]{2})/chr(hex($1))/eg; s/\+/ /g; print;
}