in reply to split and join, what's the clever way to do it
my @data = split(/\|/, $line); my $var1 = unshift @line; my $var2 ... my $var5 = join @line; [download]
As an aside, surely my $var1 = shift @data was meant above.