Conversion of string into an Array in perl
## Convert String into array
my $str = " Perl: convert character array to string ";
my @char_array = split(//,$str);
## Make string from each value of char separated by string
$str = "@char_array";
print "$str\n";
## Replace the Extra separating spaces with blank
$str =~ s/(.)\s/$1/seg; ## Simple Regex
print "$str\n";