use strict;

my @list   = split //, "Beispiel String";

my $string = "@list"; print $string, "\n";

{local $"=''; $string = "@list"; print $string, "\n"; }