Index: trunk/lib/Text/FormBuilder/grammar
===================================================================
--- trunk/lib/Text/FormBuilder/grammar	(revision 46)
+++ trunk/lib/Text/FormBuilder/grammar	(revision 50)
@@ -25,5 +25,5 @@
 }
 
-form_spec: (list_def | description_def | validate_def | group_def | line)(s)
+form_spec: (list_def | description_def | validate_def | group_def | note | line)(s)
     {
 	# grab the last section, if there is any
@@ -84,4 +84,11 @@
     }
 
+note: '!note' <perl_codeblock>
+    {   
+	(my $note = $item[2]) =~ s/^{\s*|\s*}$//g;
+	push @lines, [ 'note', $note ];
+    }
+
+
 field_line: <skip:'[ \t]*'> ( field | comment | blank ) "\n"
 line: <skip:'[ \t]*'> ( title | author | pattern_def | section_head | heading | group_field | unknown_directive | field | comment | blank ) "\n"