Select Code to Download

my $bobs = qr/(?:\b(?:[Bb]ob|[Rr]obert)\b)/;
my $franks = qr/(?:\b[Ff]ran(?:k(?:lin)?|cis)\b)/;
...

print "He's here!\n" if $string =~ m/$bobs|$franks/;
print "Bob is too!\n" if "Bob" =~ $bobs;