Select Code to Download

use strict;
use warnings;
...
}

print join(' ', @group), "\n" if @group;

17:41 >perl 1752_SoPW.pl
M 1 1 3 4 D
...
M 3 3 3 D

17:42 >