Select Code to Download

$R =~ s/\[[^\]]*?#[^\]]*?#.*?\]//gm;