thank you.

and with the code per your advice,

my $string = qq! first !
        . ( (grep /blivitz/, @array) ? qq! yes ! : qq! no ! )
        . qq! end !;
print $string . " -last test, lines 27-30 \n";
[download]

Output is:

first  no  end  -last test, lines 27-30

As expected