# 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;