while ($line_data =~ /(?P<DATASET>(2004|04)(?P<A>..)(?P<B>..)(?P<C>..)(?P<D>.*?)1003..)/g) {
    print $+{A};
    print $+{B};
    print $+{C};
    print $+{D};
}