Разбор текста в Perl (цикл)

Question

Я пытаюсь разобрать файл, который выглядит следующим образом:

TIME: 07/24/13 15:30:04 
ASPATH: 172193 19601 14835 19074 19420 4704 8266 9486 8580 

Я уже начал работать над анализатором, но так как я новичок в Perl, я не могу понять , как я может анализировать конкретную линию, которая меня беспокоит что,

ASPATH: 172193 19601 14835 4758 15731 3341 

Эти узлы графа, смысл ссылки 172193 -> 19601 ---> 14835 и так далее. Я не хочу хранить эти данные в своей базе данных так, как есть, скорее, я хочу ее разбить и вставить каждый узел в базу данных (из-за связи с базой данных узла, к которой эта таблица привязывается) с индексом представляющий путь. Так, например,

node  index 
172193  1 
19601  2 
14835  3 

and so on..... 

Таким образом, индекс предназначен, чтобы сообщить мне о связи между узлами. Поэтому, если я начну обрабатывать следующую запись, она снова начнется с индекса 1.

Это то, что я уже не включал в себя все атрибуты (особенно ASPATH), но которые меня беспокоят.

 } elsif (/^ASPATH/) { 
      ##HERE IS WHERE I AM LOST AS EXPLAINED** 
     } 

Answer 1

 }elsif (/^ASPATH/) { 
      my @nodes = split /\s/; 
      shift @nodes; # discard ASPATH 

      my $index = 0; 
      foreach my $node (@nodes) { 
       $index++; 

       # process ($node, $index) here 
      } 
     }