use strict;
use warnings;

my $latitude = "55°48'10.000";

my ($degrees, $minutes, $seconds) = split /[\xB0']/, $latitude;

print $_,"\n" for ($degrees, $minutes, $seconds);
[download]