Select Code to Download

use strict;
use warnings;
...
  my $letter_text = ($indiv_note =~ /(^\[Sidenote (?: (?!^\[Sidenote).
+ )* )/);
  print "<div>$letter_text</div>\n";
}

[Sidenote: The same.]

...

The House is up; but I am very sorry to say that I must stay at home. 
+I
have had a visit from the publishers this morning, and the story canno
+t