Почему бы не использовать уже готовый модуль CGI::Cookie:

Код:
use CGI::Cookie;

%allcookie=fetch CGI::Cookie;
while( ($key, $val)=each(%allcookie) ) {
 # $key - ключ, $val - значение
}
Твой код верный. Попробуй только изменить вот эту строку кода:
Код:
($Cookie_Info, $Expires, $Path, $Domain) = split(/;/, $raw_cookie);
на (пробел в сплите):
Код:
($Cookie_Info, $Expires, $Path, $Domain) = split(/; /, $raw_cookie);
Может поможет.