open INFILE, "<$infile";
$text=<INFILE>;
close INFILE;

##</code><code>##

open INFILE, "<$infile";
@text=<INFILE>;
close INFILE;