Select Code to Download

(foo)|(bar)|(baz)

if (defined $1) { sub1 }
elseif (defined $2) { sub2 }
...

$sub[$n]->();