да, суть проблемы была что номер (в примере над «34») хранится в $1.
если вы хотите полную линию попытку что-то как
$ret = "";
пока ()
{
$_=~/^ [^ \ d] + (\ d+) [\ w \ w] +;
$ret. = $1. ««;
}
/* теперь $ret будет содержать все 34's в линии отделенной космосами. *