#! /opt/local/bin/perl -w 
use strict;
require 5.000;
use lib "/opt/local/lib/perl5/";
use Data::Dump qw(dump);
use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/tty.usbserial");
$port->are_match("\r\n");
$port->baudrate(9600);
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
while (1) {
	my $s = $port->lookfor();
	next if $s eq '';
	print $s,"\n";
	if ($s=~/.*GPGGA.*/){
		my @a=$s=~/(\d+\.\d{2}),(\d+\.\d+),(N|S),(\d+\.\d+),(E|W)/;
		print "==",dump(@a);
	}
}