gistfile1.txt

sub _normalize {
    my $value = shift;

    if ( $value =~ /^([-+]?)(\d+)\.(\d+)\.([0-9.]+)$/ ) {
        my $degree = int($2) + int($3) / 60 + $4 / 3600;
        $degree *= -1 if $1 && $1 eq '-';
        return $degree;
    }
    else {
        return $value;
    }
}