Du könntest auch ganz ohne Regex arbeiten und einfach jede Zeile mittels my @teile = split /@/,$zeile; zerlegen und anschließend mit if (scalar @teile == 4) { print "hier stimmts" }  prüfen, ob die notwendige Anzahl Felder vorhanden ist.