Select Code to Download

#!/usr/bin/perl -w

use strict;
...
        foo_or => sub { /^(foob|)foofoo/ foreach (@string) },
        foo_qs => sub { /^(foob)?foofoo/ foreach (@string) }
});

Benchmark: timing 50000 iterations of foo_or, foo_qs...
    foo_or:  2 wallclock secs ( 1.28 usr +  0.00 sys =  1.28 CPU) @ 39
+062.50/s (n=50000)
    foo_qs:  2 wallclock secs ( 1.21 usr +  0.00 sys =  1.21 CPU) @ 41
+322.31/s (n=50000)
          Rate foo_or foo_qs
foo_or 39062/s     --    -5%
foo_qs 41322/s     6%     --