Perl, läsa in text!

Jag fick hjälp tidigare med att radera text mellan två avgränsare, men hur gör man för att läsa in texten mellan två angränsare till en variabel.

Exempel;

<!--1-->
Denna text ska in i en variabel som kan heta $text
<!--2-->

;

hur gör man???

------------------
/Sebek

Om textfilen heter text.txt bör följande fungera:

#!/usr/bin/perl -w

open (READ, "<text.txt") or die;
while (<READ> ) {
  if (/<!--1-->/) {
    while (<READ> ) {
      last if /<!--2-->/;
      $text .= $_;
    }
  }
}
close READ;

print $text;

------------------
Robban < robban@lipogram.com >

[Redigerat av Robban den 28 jul 2000]