#!/usr/bin/perl

use strict;
use warnings;

$_ = "55°48'10.000";

my ($d, $m, $s) = /([\d\.]+)/g;

my $degrees = $d + ($m/60) + ($s/3600);

print $degrees, "\n";