m/^(\w+)\|(\w+)/; $cat1 = $1; $cat2 = $2; [download]
In reply to Re: Extract data from pipe delimited text by Nightblade in thread Extract data from pipe delimited text by Anonymous Monk