> ITYM:
> push @ds, map {
> m/$regex/ ? $jids{$_} : ();
> } sort(keys(%jids));
> next;
Guffaw! I have never really got my head around perl's map function,
it always just seems to make things more ugly... (Despite that being
the point).
> (it *may* even do what the original code did :-) )
Checked, does, still not using it.
a (map snob)