($a,$throw_away) = (("abc" =~ /a(b)c/) , 'd');