perl -e '$_="."; $r=\-d; print $r, "\n", $r + 0, "\n", $$r, "\n";'