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