Merci lami20j, je découvre le perl donc je m'aide au mieu sur les doc que je trouve et j'avais trouvé une tel écriture pour le print DB :s
effectivement pour ($hote,$IP) = split /;/, <ADRIP>; ça n'allait pas faut une variable
désolé pour l'indentation sur mon script c'est bien indenté ;)