[%


  
  my $text = $$NODE{doctext};

  my $str;
  while($text=~/<CODE>((.|\n)*?)<\/CODE>/ig) {
    my $code = $1;
    $str.=$code."\n\n\n";
  }
  $str;


%]