while (<FILE>){
 my $line=$_;
 }