my ($result) = m[pattern(group)] or "default";