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

##</code><code>##

$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