Select Code to Download

my $result = '#(#string#' . join('#;#string#', @array)
                          . '#)#;

my $result = sprintf '#(#string#%s#)#',join('#;#string#', @array);