sub makesub {
    # my ($client, $regex) = @_; update: wrong, we have 1 param
    my $regex = shift;
    my $sub = eval "sub { \$_[0] =~ $regex }";
    die $@ if $@;
    return $sub;
}