my $format_definition_expression =
        "format one_field_format =\n"
         .   "@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n"
         .   "\$one_field_text\n"
         .   ".\n";

   eval $format_definition_expression;