Help for this page
#!/usr/bin/perl ... $_ = '00111'; 1 while print("$_\n"), s/.*\K01(.*)/10 . reverse $1/e;
00111 01011 ... 11001 11010 11100