# Zeile 30
my @cols = split qr{ ,\s* }x, $line;