while () { print if /\S+=\S+/; } __DATA__ $foo = 'hello'; $bar= 'hello'; $baz ='hello'; $qux='hello';