$_ = "Test string\n";

my @array = map { $_ = chr $_ } 32 .. 64;

print $_;
__OUTPUT__
Test string