Select Code to Download

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

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