Yeah, here it is.

foreach $file (@infile){
    open(IN, '<', "$file") or warn $! and next;
    open(OUT, '>', $outpath.basename($file))
    or warn $! and next;
            while (<IN>) {
            substr($_,279) =~ s/$regex/$substitute{$1}/g;
            print OUT $_;
            }
                
}
[download]

These lines are huge. Much larger than 279 characters. by about 7000 characters. I can't figure this one out.