Select Code to Download

#!/usr/bin/env perl

use 5.01800;
...
        $case =~ qr{$re} ? "matches: '$&'" : "doesn't match";
    };
__END__

perl Conway_01.pl
<1>
...
matches! <1,2>
<1,2,<3,4>,5,6>
matches! <3,4>      !!!! shouldn't this be <1,2,<3,4>,5,6>