> Суть: есть скрипт, слушающий сокет и обрабатывающий приходящие данные. При наступлении
> условия вызывается функция sock_data_work, которой передаются все данные из сокета, подхлдящие
> под регулярку. Внутри этой функции я хочу получить доступ ко всем
> данным сокета.
> Если пробовать в лоб - while (my $inp = <$sock>) - то
> есть слушать тот же сокет по тому же объекту - в
> $inp приходят только те данные, которые удовлетворяют регулярке ^DATA(.*)$, но не
> остальные.

ну не может этого быть, смотрите свой код, когда у вас выполняется ДАТА вы сваливаетесь в процедуру которая читает весь ваш ввод, оставшийся! может ваш иф не выполняется? что вы еще хотите получить? к каким "всем данным" вы хотите получить доступ?
еще раз сформурируйте вопрос.

> По ссылке как выше - не работает в принципе.

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