$str = "abc";
$re1 = qr/a/;
$re2 = qr/b/;
{
   use re 'debug';
   $str =~ $re1;
   {
      no re 'debug';
      $str =~ $re2;
   }
}