perl... помогите с рег. выражениями

$keyword = url_decode('%F8%ED%E5%EA');

.....

sub url_decode{

  my $s=shift;

  $s =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/chr hex $1/ge;

  $s =~ s/\&.*//;

  $s =~ s/\+/ /g;

  return $s;

}

если интересует, могу недорого продать готовый скрипт, который в реальном времени показывает поисковые слова для многих поисковиков, страницы поисковиков с которых зашли и внешние ссылки, а также пользовательсткие агенты. подробности - через личку

Надо сплитить по знаку равно, например (ну и по амперсанду до кучи)

Должно работать на РНР:

<?

//достаем текст запроса из УРЛ

$zapr=" Ваш УРЛ";

$expr="&.*$";

$text=ereg_replace($expr, '', $zapr);

$expr="^.*=";

$text=ereg_replace($expr, '', $text);

$text=UrlDecode($text);

//выводим запрос

echo "$text";

?>