Valeur non initialisé non nulle

^(-?\d*,*\d*);(.*)

va matcher :

- à partir du début de la ligne
- une ligne commençant par un seul tiret, ou ne commençant pas par un tiret
- suivie d'un chiffre, ou de plusieurs chiffres à la suite, ou de zéro chiffres
- suivi d'une virgule, de plusieurs virgules à la suite, ou d'aucune virgule
- suivie d'un chiffre, ou de plusieurs chiffres à la suite, ou de zéro chiffres
- suivi d'un point-virgule
- suivi de n'importe quels caractères, ou de rien du tout

Donc, pour "999;18;82;5;;" ta regexp va matcher "999" sur la première parenthèse, et "18;82;5;;" sur la deuxième.

Si, en fait, ce que tu veux vérifier et capturer, c'est le dernier champ parmi les 5 champs terminés par un point-virgule (cela semble être le cas d'après ta réponse à ton propre message, mais ce n'est pas clair dans ce que tu dis dans ton message d'origine), je pense que ta regexp est fausse.

Une regexp adéquate pourrait être la suivante, avec prise en compte du cas où ce champ est vide :

#!/usr/bin/perl

use strict;
use warnings;

$_ = "999;18;82;5;;";
my $j;

/^([^;]*;[^;]*;[^;]*;[^;]*);([^;]*);/;

if ($2 eq "")
{
  $j = "999999";
} else
{
  $j = $2;
}

print "Partie 1 = $1 / Partie 2 = $j\n";

Dal