BEGIN { begin record wais } /^From:/ BODY /$/ { data -element name $1 } /^Subject:/ BODY /$/ { data -element title $1 } /^Date:/ BODY /$/ { data -element dateOfLastModification $1 } /^$/ BODY END { begin element Body data -text $1 end record }