my ($item1, $item2, $item3, $item4, $item5) = map {clean($_)} split(/\|/, $str);