So lange Regexp können leicht unübersichtlich werden. Außer mit /x gibt es noch die Möglichkeit, den RE erst gar nicht so lang werden zu lassen, z.B. indem du zuerst mit split /\s/, $zeile, 3 die Zeile in 3 Teile teilst und dann diese jeweils einzeln verarbeitest.