1234567890123456 2004-07-10 14:47:39 51.12345 -1.12345
##</code><code>##

#!/usr/bin/perl

open (INPUT, "< data")
     or die "Couldn't open data file for reading: $!\n";

while (<INPUT>) {
$firstvalue =~ /(\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d)/;  # match first 16 digit value
      print $firstvalue #"This is the first parameter.\n";

}


close (INPUT);