while (<FILE>) {
    m/xyz/;
  }

##</code><code>##

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