Das hab ich mir auch mal überlegt und seitenweise Papier vollgekrizelt, aber mir ist nix eingefallen, wie man das mit gängiger Perl-Operator-Logik lösen könnte. Auch nicht mit Aufbohren.