This sounds like a good place for "eval":

 sub foo
{
    my $client = 'a.b';
    my $re = eval shift;
    grep /$re/, @_;
}

foo(q{qr|<$client>|}, '<a.b>', '<asb>', '<abs>');
# ==> ('<a.b>', '<asb>')
[download]