use strict;
my $count = 1;

while (<>) {
    if ( m/^\^sip/ ) {
      s/([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        ([^ ]+)(\s+)
        (\d{1,3})(\s+)
        (\d+)$
        /$1$2$3$4$5$6$7$8$9$10$11$12$13$14$15$16$17$18$19$20$21$22$23$24$25$26$27$28$29$30$31$32$33$34${count}$36$37/x;
      $count++;
    } 
    print ;
}