SELECT   CONCAT('PR_', p.db,'.',p.name ) FileName ,
CONCAT(
'
DELIMI','TER $$

USE `',p.db,'`$$

DROP PROCEDURE IF EXISTS `',p.name, '`$$

CREATE DEFINER=','`',
LEFT(DEFINER, -1+LOCATE('@',DEFINER)),
'`@`',
RIGHT(DEFINER,LENGTH(DEFINER)-LOCATE('@',DEFINER)),
'`'
,' PROCEDURE `',p.name ,'`(',p.param_list,')
',p.body_utf8,
'$$

DELIMI','TER ;
' ) AS sql_create 
FROM .proc AS p 
WHERE p.db LIKE '%'
AND TYPE LIKE 'PROC%'
ORDER BY p.db,p.name ;