my @data = split(/\|/, $line);
my $var1 = unshift @line;
my $var2 ...
my $var5 = join @line;