$file = "file.txt";
open (FILE, "$file");
       my $output; 
       while( my $line = <FILE> )... etc.