$a = ("ac" =~ /a(b)c/) ? $1 : 'd';
  print $a;

##</code><code>##

  $a = ("abc" =~ /a(b)c/)[0] || 'd';
  print $a;