Select Code to Download

use strict;
use warnings;
...
 __DATA__
this is a test

use strict;
use warnings;
...
my $string = "this is a test";
my $modified_string = $string =~ s/([a-zA-Z])/\[$1\]/gr;
print $modified_string;