my $str = '48° 25′ 43″ N';
my $regex = qr/[^\dNSEW.]+/p;
my ($deg, $min, $sec, $dir) = split $regex, $str;
print "$deg\n";
print "$min\n";
print "$sec\n";
print "$dir\n";