my @dnsSuffixList = qw ( 10.0.0.1 10.0.02 10.0.03 10.0.04 );

my $str = join ('#;#string#', @dnsSuffixList);
$str =~ s/$str/#{#string#$str#}#/;
# print $str;