use re 'debug';

for (1..2) {
   $re_str = $_;
   print("***** $_ *****\n");
   /$re_str/;
}

$re_str = "\\d";
for (3..4) {
   print("***** $_ *****\n");
   /$re_str/;
}