if ($kmlfile =~ m{<coordinates>(.*?)</coordinates>}) {
  my @triples = split(' ', $1);
  for (@triples) {
    my ($lat, $long) = split(',', $_);
    push(@coords, [$lat, $long]); # or whatever
  }
}