perl の defined-or (//=) ってまだつかえんのか。