$s = q[platform=linux hpfFamily=hwseries npsFamily=SWseries rackcnt=1 SPAs=1 SPUpSPA=6 CPUs=6 shrParts="/part1 /home/part2" maintIface="eth2" DEncpSPA=4 nDEncs=4 npsMName="SystemName" portnums="ports=(0 1 2 3)" ints=(eth0 eth1)];;

print for split ' (?=\w+=)', $s;;
platform=linux
hpfFamily=hwseries
npsFamily=SWseries
rackcnt=1
SPAs=1
SPUpSPA=6
CPUs=6
shrParts="/part1 /home/part2"
maintIface="eth2"
DEncpSPA=4
nDEncs=4
npsMName="SystemName"
portnums="ports=(0 1 2 3)"
ints=(eth0 eth1)