print $string;; this=x that=x x another=x thing=x print "'$_'" for split m[ (?=\S+=)], $string;; 'this=x' 'that=x x' 'another=x' 'thing=x '