while (my $line = <MYFILE>)
{
   chomp $line;

   # Do stuff here
}