$for i in *.pdf; do DESTINO=`pdfinfo $i |grep Title|sed s/»Title:          «//| sed s/’ ‘/’_’/g|sed s/’_’$//g`.pdf; mv $i $DESTINO; done