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