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