I dont know what is the best way, just an if and else, or if and next, i usually use "do that and next if that" but for what you want yo do your regex is wrong, it should be:

~/^(y|yes)$/i
[download]

Yours match every answer that begins with y or ends with yes, try for example young or eyes.

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print