Recherche:

g pour global, la regexp va s'executer autant de fois que l'expression est trouvée
o pour compilation, la regexp ne sera compilée qu'une seule fois à la première execution, ensuite elle restera en...

Une erreur:

my Ficjoints; devrait être my $Ficjoints;

plusieurs lignes inutiles:

$Ficjoint = "${Ficjoint}" ; inutile, car tu viens de faire $Ficjoint = "$1" ;
de plus les guillemets sont...