Is there a pretty printer for Perl regexes that makes use of the /x switch and splits up a complicated regex over several lines to improve its readability?

Something like perltidy for regular expressions, except perltidy seems to leave them untouched even if they should be broken up into several lines.