Select Code to Download

use strict;
use warnings;
...
bob(1);
bob('a');
bob('c');

if (my $a = $c) {
    #...
} elsif (my $a = $b) {
    #...
}