while ( my $line = <FILE> ) {
   chomp $line; # remove new line
   #Random code
}