open FILE, "<", $filename;

while(<FILE>) {
   chomp;
   # mode processing goes here
}