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