[perl] Suche passenden regulaeren Ausdruck

Hallo allerseits, ich suche gerade eine passende RegEx für folgende kleine Aufgabe: Vorangehender Befehl: $zeile =~ /(pattern1)(pattern2)(pattern3)/; $1 $2 $3 Wenn $1 nicht leer ist, dann printe (nur) $1. Andernfalls: Wenn $2 nicht leer ist printe (nur) $2. Andernfalls: printe $3. Gibt es vielleicht einen regulären Ausdruck, der die Funktion dieser drei Zeilen hat? (Ich suche die RegEx-Form, damit ich das leichter in ein vorhandenes Skript einbauen kann.) Im voraus vielen lieben Dank für Hilfe. Ralph