#!/bin/bash
perl -nle '$file=$1 if m#^Index: (.+)$#; if (m#\+\s*<name lang="es">(.+)</name>#) { print $file."\n".$1; }' $*