Thanks, pleasingly simple. > CHOOSE ONE (untested). > > # > # list slice (v. ugly) > # > my ($desc, @list) = (split /\t/, $_, 6)[4,0..3,5]; > > # > # splice > # > my @list = split (/\t/, $_, 6); > my $desc = splice(@list, 4, 1); >
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
