Select Code to Download

use strict;
use warnings;
...
$all =~ /^ ($nosep*) $nosep*? ( $sep \1 $nosep*? )+ $/x;

print "solution: '$1'";