It looks like the HTML parser took your tags away (You should make sure to use <CODE> tags to keep things nice.); as well as the fact that it's hard to interpret exactly what you are trying to do. I see either two things that you are attempting:

Reading something between two tags, such as <TAG>my stuff</TAG>:

my @array;
while ( my $line = <FILE> ) {
  if ( $line =~ /\<TAG\>(.*)\<\/TAG\>/ ) {
    push @array, $1;
  }
}
[download]

This matches the text between the two lines, and stores that match (which comes out of the regex as $1), in an array.

Putting the text of the next line into a variable after matching something on the previous line..., as in

<TAG>data</TAG>
this is data to be stored
[download]

Which would work to be something like...

my @array;
while( my $line = <FILE> ) {
  if ( $line =~ /\<TAG\>data\<\/TAG\>/i ) {
    my $data_line = <FILE>;
    push @array, $data_line;
  }
}
[download]

In this case, if the tag delimiter is matched, then it reads the next line and sticks that into an array.

If neither case is what you want or helps you get you want to need, you need to be more specific about your format.

---

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain