/
   (?{''})
   (?:
      (?{$^R.'000'}) (?:(?{$^R.0})|(?{$^R.1}))
   |
      (?{$^R.'0101'})
   |
      (?{$^R.'011'}) (?:(?{$^R.0})|(?{$^R.1}))
   |
      (?{$^R.'1'}) (?:(?{$^R.0})|(?{$^R.1}))
      (?{$^R.'0'}) (?:(?{$^R.0})|(?{$^R.1}))
   )
   (?{ $push @results, oct "0b$^R" })
   (?!)
/x