open (TEXT,">text.txt");
...
@text=<TEXT>;