awk 'BEGIN{FS = ","}$1 ~ /TITLE/{split($1,a,">");gsub(a[2],"");$1 = $1 a[2] FS;gsub(/ +/," ")}1' file