#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

# Fake up a couple of data files
my %dataFiles = (
    data1 => <<DATA1,
DER.7-767/04.7 5194.5700 -6772.5200 0.0000
DER.7-767/04.8 5194.7400 -6776.3200 0.0000
DER.7-767/04.9 5192.1000 -6776.4300 0.0000
Der.7-539/99.1 5337.9000 6997.1200 0.0000
Der.7-539/99.10 5348.3300 -7020.0900 0.0000
Der.7-539/99.11 5348.4400 -7021.1100 0.0000
DATA1
    data2 => <<DATA2,
Kredyt3.27 5789322.3040 7500854.8800 0.0000
Kredyt3.27a -124.9646 373.4666 0.0000
Kredyt3.28 5789295.3170 7500857.7380 0.0000
Kredyt3.28a -151.9768 376.3191 0.0000
Kredyt3.29 5789298.8620 7500874.6180 0.0000
Kredyt3.29a -148.4337 393.2154 0.0000
Kredyt3.2a -63.0262 297.6930 0.0000
Kredyt3.3 5789369.8750 7500785.7170 0.0000
Kredyt3.30 5789303.2010 7500873.9300 0.0000
Kredyt3.30a -144.0905 392.5281 0.0000
Kredyt3.31 5789302.7240 7500869.9080 0.0000
Kredyt3.31a -144.5668 388.5023 0.0000
Kredyt3.32 5789307.5930 7500869.2210 0.0000
Kredyt3.32a -139.6932 387.8161 0.0000
Kredyt3.33 5789307.9110 7500871.6550 0.0000
Kredyt3.33a -139.3756 390.2524 0.0000
DATA2
);
my $listA = "data1\ndata2\n";
my @coords;

#opens a list of the files that need processing
open my $inFile, '<', \$listA or die "(L1)We've got a problem: $!";

while (defined (my $filename = <$inFile>)) {
    chomp $filename;
    next if !length $filename;

    push @coords, "Path: $filename\n";

    #opens the actual file that will be processed
    open my $inData, '<', \$dataFiles{$filename}
        or die "(L2)We've got a problem: $!";

    while (defined (my $line = <$inData>)) {
        next if $line !~ /\s+(-?\d+\.\d+)\s+(-?\d+\.\d+)/;
        #Append the coordinates (with the '-' sign where appropriate)
        push (@coords, "$1 || $2 \n");
    }

    close ($inData);
}

close ($inFile);

print @coords;