my (undef, $segundo, undef) = $fichero =~ /(\w+)[.]rar/gi; say "[$segundo]"; # datos