my @sidenotes  = split /\[Sidenote:.*?\]/, $text;