if ( length($_) > 279 ) {
  substr($_,279) =~ s/$regex/$substitute{$1}/g;
  print OUT $_;
}