my %cfg = ($data =~ /#~+(\w+)~+#\n([^#]+)\n/sg);

HTH
Grüße
payx

PS: Wenn geschweifte Klammern besser gefallen, geht natürlich auch:
my $cfg = {$data =~ /#~+(\w+)~+#\n([^#]+)\n/sg};

Editiert von payx: PS
Last edited: 2015-01-07 15:18:02 +0100 (CET)