$input = "-0 1 0"; 
my ($sign, $d, $m, $s) = ($input =~ /(-{0,1})(\d+)\s+(\d+)\s+(\d+)/); 
my $decdegrees = (($sign)?-1:1) * ($d + $m/60 + $s/3600); 
print $decdegrees