#!usr/bin/perl
use strict;
use warnings;
my $string="RABBIT 45 -126.06686";
(my $temp1)=$string=~ /^(\w+)\s+/;
(my $temp2)=$string=~ /^\s+/(\d+)/;
(my $temp3)=$string=~ /^(.*)\s+(\d+)\s+$/;