#{#string#10.0.0.1#;#string#10.0.0.2#;#string#10.0.0.3#}# and so forth.

##</code><code>##

my @dnsSuffixList=('10.0.0.1', '10.0.0.2', ... );

##</code><code>##

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;