(foo)|(bar)|(baz)

##</code><code>##

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

##</code><code>##

$sub[$n]->();