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