- perl -p -i -e 's/\[latin1\]\{inputenc\}/[utf8]{inputenc}\n\\usepackage[spanish]{babel}/' $@
- perl -p -i -e 's/\\caption\\end/\\caption{} \\end/' $@
- perl -p -i -e 's/\\author\{and\}/\\author{Paul Stacey \\and Sarah Hinchliff Pearson}/' $@
- perl -p -i -e 's/\\DBKinditem\{\\writtenby\}\{and\}/\\DBKinditem{\writtenby}{Paul Stacey and Sarah Hinchliff Pearson}/' $@
+ perl -p -i -e 's/\[latin1\]\{inputenc\}/[utf8]{inputenc}\n\\usepackage[spanish]{babel}/; \
+ s/\\caption\\end/\\caption{} \\end/; \
+ s/\\author\{and\}/\\author{Paul Stacey \\and Sarah Hinchliff Pearson}/; \
+ s/\\DBKinditem\{\\writtenby\}\{and\}/\\DBKinditem{\writtenby}{Paul Stacey and Sarah Hinchliff Pearson}/; \
+ s/\\part\{(Prefacio|Introducción)\}/\\chapter*{$$1} \\addcontentsline{toc}{chapter}{$$1}/; \
+ s/\\section\{Notas\}/\\section*{Notas}/; \
+ s/(Vínculos Web)/\\section*{$$1}/; \
+ s/^\s*(Modelo de ingresos|Fecha de la entrevista|Entrevistad(?:o|a|os|as))/\\textbf{$$1}/;' $@
+ perl -p -i -e '$$work=1 if /chapter.Arduino/; $$work=0 if /chapter.Bibliografía/; \
+ next unless $$work; \
+ s/(\\label\{[-\.\wáéíóúñ]+\}\\hyperlabel\{[-\.\wáéíóúñ]+\}%)/$$1\n\\begin{quote}/i; \
+ s/(Perfil escrito por.+)/$$1\n\\end{quote}/' $@