Building the regexes from the perldiag man page could be automated. Take every line after an empty line, do  s/%\S+/.+/g and voila, there is your regex.

In special cases (centrally compiled perl) the perl interpreter source could be changed so that all error messages are prefixed with a string like "PERL ERROR"