Ein kleines Regex-Rätsel

[dedlfix]

echo $begrüßung;

Hallo, ich hab ein Rätsel für gemacht: Was matcht dieses Regex-Pattern (Perl Syntax)?
$pattern = '/(?<=^).(?<![^r])(?=(?(?!.)d|(?P<a>e))).(g(?=(?(?=[a-zA-Z0-9])(?P=a)|f))|(?<![^g])(?(?=[a-zA-Z0-9])(?P=a)|c)){2}(?(?=[a-zA-Z0-9])x|y)(?![^$])/';

Gesucht wird ein beliebiges Zeichen (.), dem ein Anfang (^) vorangehen muss, der aber nicht ins Ergebnis einfließt (positive Lookbehind Assertion: (?<=...) ). Das ist ein recht sinnloses Konstrukt, weil der Anfang sowieso nicht ins Ergebnis mit einfließt. Hier hätte es ein ^. auch getan.

Und nun habe ich die Lust verloren ...

echo "$verabschiedung $name";