Help for this page
Select Code to Download
Select
or
download this
$selection =~ s/<option [^>]*\K(?=>\s*\Q$value\E\b)/ selected/;