Richtige Formatierung von Perl-Schaltern in emacs

Question

Edit : Nachdem ich die Antworten gelesen habe, glaube ich, dass die Antwort lautet: "Tu das nicht", daher habe ich eine entsprechende Antwort als offizielle Antwort markiert.

Gibt es eine einfache Möglichkeit, Emacs dazu zu bringen, Perl-Switch-Anweisungen wie die von perldoc.perl.org anzuzeigen Seite wechseln ?

Hier ist die Formatierung auf perldoc.perl.org:

use Switch;

switch ($val) {
    case 1          { print "number 1" }
    case "a"        { print "string a" }
    case [1..10,42] { print "number in list" }
    case (\@array)  { print "number in list" }
    case /\w+/      { print "pattern" }
    case qr/\w+/    { print "pattern" }
    case (\%hash)   { print "entry in hash" }
    case (\&sub)    { print "arg to subroutine" }
    else            { print "previous case not true" }
}

Hier ist die Formatierung in cperl-mode nach M-x indent-region wird auf das Snippet angewendet:

use Switch;

switch ($val) {
  case 1                { print "number 1" }
    case "a"    { print "string a" }
      case [1..10,42]   { print "number in list" }
        case (\@array)  { print "number in list" }
  case /\w+/    { print "pattern" }
        case qr/\w+/    { print "pattern" }
        case (\%hash)   { print "entry in hash" }
        case (\&sub)    { print "arg to subroutine" }
        else            { print "previous case not true" }
    }

Ich habe den unerklärlichen Drang, bei if-elsif-Konstruktionen zu bleiben...

ps. Ich denke este beschreibt den gewünschten Prozess, aber es sieht so aus, als würde es eine Weile dauern, ihn zu analysieren.