@cfg{ ( $data =~ /#~+(\w+)~+#/sg ) } =  ( $data =~ /~+#\n?(.*?)\n?#~+/sg );