foreach(...)
{
  my $re=qr/...$xxx..../o;
  @a = grep { /$re/ } @b
  .....
}