http://qs1969.pair.com?node_id=506359


in reply to Parsing named parameters

my $data = <DATA>; my %hash; $hash{$1} = $2 while $data =~ s/\s*(\w+)\s*=\s*([^=]+)$//; use Data::Dumper; print Dumper \%hash; __DATA__ option1 = value0 value1 value2 option3 =value3 value4 option2=value5

Not the fastest possible solution, but simple and concise.