in reply to Extract data from pipe delimited text
m/^(\w+)\|(\w+)/; $cat1 = $1; $cat2 = $2; [download]