sub google
{ # [google://] and [lucky://]
my$google = 'http://www.google.com/search?q=';
my$luck = '&btnI=lucky';
my($fu,$g,$n) = shift;
if($fu eq 'G'){ undef($luck) }
$n = CGI::escape($_[0]);
if(@_ == 2){
	$g = qq~<a href="$google$n$luck"$trgt>$_[1]<\/a>~;
	}
if(@_ == 1){
	$g = qq~<a href="$google$n$luck"$trgt>$_[0]<\/a>~;
	}
return $g;
}