my $string = qq! first !
        . (grep /blivitz/, @array) ? qq! yes ! : qq! no !
        . qq! end !;

##</code><code>##

my $string = 
   (  qq! first ! . (grep /blivitz/, @array)  )
      ? ( qq! yes ! )
      : ( qq! no ! . qq! end ! );