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

##</code><code>##

# assuming @array already exists for some reason
$str = join "", @array;
open S, "<", \$str or die;
$/ = "";                     # paragraph mode normally
while (<S>) {
   print if /lazy/;
}
close S;