Really? My original thought was to allow stuff like this.

rebind_closure( $foo,
    qr/^\$Foo_.+?Bar/ => 23,
    sub { $_[0] eq '$bar' or $_[0] eq 'foo } => 42 );
[download]