my $re=qr/...$xxx..../;
@a = grep { /$re/ } @b