$regex = qr/xyz/;
  while (<FILE>) {
    m/$regex/;
  }