Replace

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

with

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

or with

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