This is truly a perplexing problem. Here's a possible solution involving pipes: (tested code)

#!/usr/bin/perl
use strict;
use IO::Handle;
pipe(READ,WRITE) or die;
READ->autoflush(1); #just to be safe
WRITE->autoflush(1);
my $data=<DATA>;
print $data;
print WRITE $data;
*DATA=*READ;
my $data2=<DATA>;
print $data2;
__DATA__
TESTDATA
[download]

It kind of shocked me that *DATA was not read-only. After reading from the pipe, just write the same thing back and you'll have an infinite supply of DATA. This can be easily adapted for lines of DATA but be beware of autoflushing. I came across some pitfalls involving non-flushing data in the handles when I was doing something similar.

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.