Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

while (<DATA>) {
...
000011111
1111111000
10001001110000011
  2. or download this
    000000 : PASS
111111 : PASS
000011111 : CLEAN
1111111000 : CLEAN
10001001110000011 : FAIL