my $value;
if ( m/regex (with parens) .../) {
  # do something with $1
  $value = $1;
}
else {
  # don't use $1; exception, or provide a default value
  $value = 'default';
}

or maybe:
my $value = m/...(..).../ ? $1 : 'default';