# . . .
    while( <IN> ) {
      if( length >= 279 ) {
        substr( $_, 279 ) =~ ...
      }
      print OUT $_;
    }