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

##</code><code>##

my ($result) = m[pattern(group)]? $1 : "default";