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