2015-02-16T11:06:01 Raubtier

Die Frage ist auch, warum das bei dir überhaupt matcht!

Uups! Da habe ich nicht aufgepasst und die falsche "Experimental-Version" gepostet.

Der richtige Regex muss IIRC m:^(.+?) \([0-9]{4}(/[IVX]+)?\).*?$: lauten.

Hier auf der Arbeit meldet mir Perl 5.16.3 mit der geänderten Regex unter RedHat Linux nur ABC1 als tainted, unter SunOS 5.8 ist nichts tainted.

Ich werde heute Abend noch einmal die Regex genau nachprüfen.