open(READ, "$var:$ENV{JBOSS_HOME}/conf/manager.properties");
my @contents = <READ>
close(READ)
foreach(@contents) {
       if(m/manager\.(\d*)\.address=(\d*\.\d*\.\d*\.\d*)/) {
       if($address eq "$2"){
            $_ = "manager.$1.address=$2\n";
            print "exist\n";
        }
    }
}