Select Code to Download

local($/ = chr 4);

local $/ = chr 4;

my @list = qw( why does this not work);
map( { print $_."\n" }, @list );