Select Code to Download

use strict;
use warnings;
...
$q-> end;
$_-> join for @gang;

D:\>perl test181110.pl
2
...
2
4