open(FILE, "< $FILE") or die "ERROR: $!";
    my $data;
    {
        local $/=undef;
        $data=<FILE>
    }

    while ( $data =~ m{<DataRecord>(.+?)</DataRecord>}sg ) {
        my $rec = $1;
        if ( $rec =~ m{\d+/\d+} ) {
            push @cache, $rec;
            print "$rec";
        }
    }

    close (FILE);