> grep { $_[0] =~ $_ and return 1; } split /,/, $_[1] ; Tuhle funkci jsem do dneska nejak opomijel, budu to muset napravit. Diky. -- Petr