#!/usr/bin/perl

# http://perlmonks.org/?node_id=1193292

use strict;
use warnings;

while(<DATA>)
  {
  my $n = 1;
  s/(?<!\S)(?=\S)/ $n++ . ')' /ge;
  print;
  }

__DATA__
RABBIT 45 -126.06686
[download]