my @lines = <TXTIN>;
  for (@lines[0..($#lines - 1)]) {
    s/yada/yadda/;
  }
  $lines[-1] =~ s/different/substitution/;