Help for this page

Select Code to Download

Select or download this

$ perl -Mre=debug -e'/[^01]/, /^[01]+$/'
Freeing REx: `","'
...
        1[1] 6[4] 2[4] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[
+0] 7[1] 8[0] 
Freeing REx: `"[^01]"'
Freeing REx: `"^[01]+$"'

Select or download this

#!/usr/bin/perl
use strict;
...
        1[1] 4[2] 2[2] 5[1] 6[0] 
Freeing REx: `"\\W"'
Freeing REx: `"^\\w+$"'