Select Code to Download

perl -000 -ne 'print if /lazy/' lazy_file

# assuming @array already exists for some reason
$str = join "", @array;
...
   print if /lazy/;
}
close S;