while ($line_data =~ /(?P<DATASET>(2004|04).*?1003..)/g) {