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