while (<DATA>)
{
  next unless /^~/;# Skip line unless it starts with ~
  tr/_/+/;
}
continue
{
  print;
}

##</code><code>##

  pos($_) = -1; 
  s/(^~ | \G) .*? \K  _  /+/gx;