$re1 = qr/a/;
$re2 = qr/b/;
$re3 = qr/c/;
$str = "ab";

$str =~ $re1;
$str =~ $re2;
$str =~ $re3;

##</code><code>##

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