$VAR1 = "/search/\x{bf}Cuales son las partes de una cadena de conexi\x{f3}n??scope=SSGU8G_12.1.0|/com.ibm.jdbc_pg.doc/ids_jdbc_011.htm|0|1|1|0\n";
UTF-8 flag is on

/search/¿Cuales son las partes de una cadena de conexión??scope=SSGU8G_12.1.0|/com.ibm.jdbc_pg.doc/ids_jdbc_011.htm|0|1|1|0

After Text::CSV: /search/¿Cuales son las partes de una cadena de conexión??scope=SSGU8G_12.1.0 | /com.ibm.jdbc_pg.doc/ids_jdbc_011.htm

##</code><code>##

my($data);

open my $fh, "<:encoding(utf8)", $file || die("cannot open $file file\n");
while(<$fh>){
 if($_ =~ /Cuales/){
  $data = $_;
  print $_;
 } 
}
close($fh);

##</code><code>##

open(R, "$resultsFile") || die("cannot open results file $resultsFile for reading.\n");