or download this
$ perl -CEO -MEncode=decode -MData::Peek -MText::CSV_XS -wE'my$c=Text:
+:CSV_XS->new({sep_char=>"|",auto_diag=>1,binary=>1});while(<>){$c->pa
+rse(decode("utf-8",$_));DPeek for$c->fields}' test.csv
PV("https://www.ibm.com/support/knowledgecenter/es/search/\357\277\275
+Cuales son las partes de una cadena de conexi\357\277\275n??s"...\0)
+[UTF8 "https://www.ibm.com/support/knowledgecenter/es/search/\x{fffd}
+Cuales son las partes de una cadena de conexi\x{fffd}n??scope=SSGU8G_
+12.1.0"]
...
PV("1"\0)
PV("1"\0)
PV("1"\0)