$x = 'abc' =~ /a(.)c/ && $1;   # b (or false on fail)