I can't wait until we have $_ //= ''

In Perl 6, this would probably be written:

($x, $y, $z) ^//= '';
[download]

Now that is *really* sweet.

___ Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;