Help for this page
Select Code to Download
Select
or
download this
my ($var1, $var2, $var3, $var4, $var5) = split /\|/, $line, 5;