DB<1> ($a) = ("abc" =~ /a(b)c/); print $a
b
  DB<2> ($a) = (("abc" =~ /a(b)c/) || 'd'); print $a
1
  DB<3>($a) = (("ac" =~ /a(b)c/) || ('d')); print $a
d