Select Code to Download

while (<DATA>) {
    print if /\S+=\S+/;
...
$bar= 'hello';
$baz ='hello';
$qux='hello';