Select Code to Download

$key  = 'default';
$case =~ s/$reg2// && ($key = 'a');
$case =~ s/$reg1// and do { whatever(); $key = 'b' };
...

$dispatch{$key}->(@args);