/data/sprocket_logs/spacely.200
/data/sprocket_logs/cogswell.100
/data/cog_logs/cogswell.1000
/data/cog_logs/astro.1

##</code><code>##

/data/cog_logs/maimed_a_robot

##</code><code>##

    my %dispatcher => (
      \$quux => [ 
                            sub {
                              return 0 unless $_[0] =~ ${$_[1]}; 
                              ${$_[3]} =~ s/${$_[1]}/${$_[2]}/;
                              return $_[3];
                            },
                            qr{bar},
                            qq{foo},
                ],
    );

    $dispatcher{$key} -> [0] -> 
      ($file, $dispatcher{$key} -> [0] -> [1], $dispatcher{$key} -> [0] -> [1]);