Just use list slices:

my $first = (split /=/, $string)[0];
# or even...
my ($first) = split /=/, $string;
[download]

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;