Help for this page
my %hash = split /=|\b(?=\S+=)/, $data; $hash{$_} = [ split / /, $hash{$_} ] for keys %hash;
my %hash; $hash{$1} = [split / /, $2] while $data =~ /(\S+)=(.*?)(?=\S+=|$)/g;
my %hash; push @{$hash{$1}}, split / /, $2 while $data =~ /(\S+)=(.*?)(?=\S+=| +$)/g;
www.com | www.net | www.org
No recent polls found