Select Code to Download

  my $document = new My::String( read_file('doc.txt') );
  my @sections = $document->split( qr/^------\n/ );
  my @markers = $sections[2]->match( qr/{{\w+}}/ );
...
  }
  
  write_file( 'doc.txt', $document->text() );