Perl, регулярка откусывает последнюю цифру)

[garrotte]

Приветствую товарищи!)
Есть хендлер на Perl в nginx, задача, получить значение определенной cookie из заголовка запроса, выглядит все это так:
например заголовок Cookie: ct=3406121048; ha=2277742177; hash=blabla;

Код: Выделить всё

my $cookie_ha=$r->header_in("Cookie");   # получаем заголовок cookie
$cookie_ha=~ s/.*ha=([^\s]+).+/$1/g;   # пытаемся вычленить значение куки ha

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

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[thefree]

Код: Выделить всё

$cookie_ha=~ s/^ct=(\d+);\sha=(\d+);\shash=(\w+);$/$2/;

[garrotte]

thefree спасибо