while (<$fh_in>) {
  next if m/.../;
  last if m/.../;
  
  chomp;
  ...
}