>perl -wMstrict -le
"print '1. no match octal 01'  if qq{\1} =~ m{ [^\1] }xms;
 print '2. match numeral 1'    if qq{1}  =~ m{ [^\1] }xms;
 print '3. match octal 01'     if qq{\1} =~ m{ [\1]  }xms;
 print '4. no match numeral 1' if qq{1}  =~ m{ [\1]  }xms;
"
2. match numeral 1
3. match octal 01