Select Code to Download

#!/usr/bin/perl -w
use strict;
...
      map { [ split // ] }
      @ARGV ;

#!/usr/bin/perl -w
use strict;
...
print map { !$#$_ ? $_->[0].' ' : join '', $_->[0], shuffle(@{$_}[1 ..
+ $#$_-1]), $_->[$#$_], ' ' }
      map { [ split // ] }
      @ARGV ;