Perl help? 0

Доброго время суток. Хочу попросить помощи. Пишу скрипт на Perl для обработки лог файла Squid, надо что бы считал трафик по пользователям иотрубал их при привышениии лимита, пишу впервые на этом языке, вот что получилось:

#!/usr/bin/perl

open( f_squid,»

%ipbyte=();%iplog=();

$sum=0;

while( $str=readline(f_squid) )

{

( $time,$name,$byte,$ip, $url)=split (' '), ;

$sum+=$byte; #общий http траффик

$ipbyte{$ip}+=$byte; #траффик по айпишникам

$url=~/[^\/]*\/\/[^\/]*/;

$url=$&;

$iplog{$ip}{$url}+=$byte; #эта строчка нужна если хотите еще разделять урлы по айпишникам

print «trafik: $ipbyte{$ip}\n», «summa: $sum\n», «Time: $time\n», «$str\n» ;

}

почемуто все переменные кроме $srt, пустые, как сделать что бы работало?