local($/ = chr 4);

##</code><code>##

local $/ = chr 4;

##</code><code>##

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