Select Code to Download

my @words = qw( s so som some somew somewo somewor someword somewords)
+;

my $str = 'somewords';
local ($\,$,) = ("\n") x 2;
...
  print map {$mem .= $_} split //, $str;
}
# etc. (Golf?)