Select Code to Download

my $re = qr/([NS]?)\s*(\d+)(?:\D*)(\d*).*?,\s*([EW]?)\s*(\d+)(?:\D*)(\
+d*)/;
unless ($latlong =~ /$re/) {
...
if ($1 eq 'S') { $lat = -$lat; }
if ($4 eq 'W') { $long = -$long; }
return sprintf("%.2f,%.2f", $lat, $long);