while ($contents =~ s/\05([^\n\05]+)\05/$1\05\05/gs) {}

   |
   |
   v

$contents =~ s/\05([^\n\05]+)(?=\05)/$1\05/gs;