$hoge = ’
<select name="a">
<option value="A" selected>■</option>
<option value="B">★</option>
<option value="C">▲</option>
</select>

<select name="b">
<option value="A">■</option>
<option value="B">★</option>
<option value="C" selected>▲</option>
</select>
’；



となっている場合、
『selected』が付いているoptionにマッチさせ、
そのvalue値【A】を$hoge1へ代入するしたいのですが、
正規表現はどのようになるのでしょうか？

$hoge =~ /value="?([^"]+)"? selected/g
$hoge1 = $1；
$hoge2 = $2；

↑これでは、ダメでした。
御教授　お願い致しますm( __ __ )m