1.1.1.1
2.2.2.2
3.3.3.3
##</code><code>##

open(SESIP2, ">sesip2");

open(MYINPUTFILE, "sesip1");

while (<MYINPUTFILE>) { 
	my($line) = $_;
	chomp($line);
	print SESIP2 "$line "; 
	}

close(MYINPUTFILE);
close(SESIP2);

open(SESIP3, ">sesip3");

open(MYINPUTFILE, "sesip2");

while (<MYINPUTFILE>) { 
	my($line) = $_;
	print SESIP3 "dest \($line\)"; 
	}

close(MYINPUTFILE);
close(SESIP3);

##</code><code>##

dest (1.1.1.1 2.2.2.2 3.3.3.3 )


##</code><code>##


system "sed 's/ )/)/' sesip3 > sesip2";