#!/usr/bin/perl -w
use strict;

my $header = do{ local $/ = "\n-"; <DATA> };
my( $lat, $lon ) = $header =~ m[
    Latitude:  \s+ ( \S+ ) \s+
    Longitude: \s+ ( \S+ ) \s+
]smx;

my $discard = map{ scalar <DATA> } 1 .. 4;

while( my $line = <DATA> ) {
    my( $pres, $hght,  $temp, $dewp, $dir, $spd ) =
        ( split (' ', $line), 10 )[ 1, 2, 3, 4, 8, 9 ];

    print "$lat, $lon, $pres, $hght, $temp, $dewp, $dir, $spd\n";
}


__DATA__
<TITLE>Plymouth State RAOB Thermodynamic Diagram/Data</TITLE>
</center><pre>
Miami Intl Airp FL US KMIA 1 25.82 -80.28 4 72202

Date: 0000Z 24 AUG 05
Station: KMIA
WMO ident:  72202
Latitude:   25.82
Longitude: -80.28
Elevation:   4.00
-------------------------------------------------------------------------------
LEV PRES  HGHT  TEMP  DEWP  RH  DD   WETB DIR SPD THETA THE-V THE-W THE-E   W
  mb     m     C     C    %   C     C  deg knt   K     K     K     K    g/kg
-------------------------------------------------------------------------------
SFC 1012     4  29.8  23.8  70  6.0  25.3 100  10 301.9 305.3 298.1 357.0 18.65
  1 1000   113  28.8  23.8  74  5.0  25.1  95  12 302.0 305.4 298.2 357.7 18.88
  2  961   466  25.4  22.3  83  3.1  23.2  93  15 302.0 305.3 297.7 354.9 17.91
  3  925   802  23.2  19.4  79  3.8  20.5  95  15 303.0 305.9 296.4 349.0 15.51
  4  850  1536  19.0  14.0  73  5.0  15.7  95  14 306.0 308.3 294.7 341.8 11.91
  5  769  2390  14.2   8.2  67  6.0  10.5  96  11 309.8 311.4 293.6 337.0  8.91
  6  753  2568  12.4  10.5  88  1.9  11.2  97  11 309.7 311.7 294.8 342.2 10.65
  7  737  2748  11.8   6.8  71  5.0   8.8 100  11 310.9 312.5 293.6 336.9  8.44
  8  700  3178   9.4   4.4  71  5.0   6.5 110  11 312.9 314.3 293.4 336.3  7.51