open(INFILE, "infile.txt");
my $filesize = -s INFILE;
read(INFILE, $temp, $filesize);
close(INFILE);

$temp = /(regex here)/;

and your other stuff here