> Actually, the input data looks more like > > [SNEEX] > .... > [ADMIN] > .... > [END]
my $regex = '\b(' . join('|', keys %jumpz) . ')\b';
if( my ($name) = $foo =~ /$regex/o )
{
my $sub = $jumpz{$name};
...
}
> Sorry for the mass hysteria;
What hysteria? Hysteria? Oh, no... AAAAAAAAAAAAAAAAAAGH
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
