substr($_,279) =~ s/$regex/$substitute{$1}/g;

##</code><code>##

substr($_,279) =~ s/$regex/$substitute{$1}/g
   unless length < 279;

##</code><code>##

{ no warnings; substr($_,279) =~ s/$regex/$substitute{$1}/g; }