split m/\|/, $row;
Read perlretut and then perlre for more details.
In reply to Re: simple simple split by moritz in thread simple simple split by kevind0718