string ve stringu

[Petr Vileta]

Mam nejake zatmeni mysli ;-) a nemuzu prijit na nasledujici

Mam nekolik stringu, ktere spojim do jednoho stringu a oddelim je nejakym
oddelovacem, treba carkou.
Pak mam druhy string a zajima me, zda ve stringu 2 je obsazen jakykoliv
string ze "seznamu" ve stringu 1.
Jako vysledek potrebuji vedet, zda tam JE nebo NENI kterykoliv string ze
seznamu, ale nesmi to byt destruktivni porovnani.
Dokazu to vyresit takhle:
$a="abc,uvxy,123456,defgh";
$b="nejaky string obsahujici 123456 krome jineho";
$vysledek=jetam($b,$a)

sub jetam
{
my $kde=$_[0];
my @co=split(/,/,$_[1]);
for(my $q=0; $q<$#co; $q++)
    {
    return 1 if(index($kde,$co[$q]) > -1);
    }
return 0;
}

Ale neexistuje elegantnejsi reseni?
--
Petr