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