Select Code to Download

use strict;

my $counter=1;
...
    $/="</Rec $counter>";
}
print "FIRST FILE: $first_file\nSECOND FILE: $second_file\n";

__DATA__
<Rec 1>
...
some text
some text
</Rec 4>