@favs = split /~~~/,$favorites; $favnum = ""; foreach (@favs){ ($favtitle,$favlink,$favnum) = split /\|\|\|/,$_; $favnums=$favnum . "," . $favnums; } #end foreach (@favs){