Re^3: Match on line, read backwards to opening xml tag then forward to closing tag

[furry_marmot]

I want it to loop through and store each <DataRecord>...</DataRecord>. Then, if it matches on 4 digits followed by a forward slash I want it to output the whole <DataRecord> to screen, not just the matched lines from second filter.

Okay, try this. You were very close, but it seems a bit more complicated than necessary. Also, is the cache just to hold the matches until you print them? If so, you could eliminate that step entirely.

    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);

Prints:

$ test.pl

        <Data>123456</Data>
        <Data>123456</Data>
        <Data2>123456</Data2>
        <Data>1234/3456</Data>
        <Data>123456</Data>
        <Data>1234/3456</Data>
        <Data3>123456</Data3>
        <Data>123456</Data>