+An example with local:

print "from 'a' to 'z':\n";
do { local $, = $"; print a..z };
[download]