Select Code to Download

#         1         2       
#1234567890123456789012345678
 map/(^\s*[^:]*[^:\s])/,@list

#!/usr/bin/perl -w
use strict;
...
@list=@T;by 'blokhead'; print "($_)\n" for map{/([^:]*?)\s*(\n|:)/&&$1
+}@list;
@list=@T;by 'jmcnmara'; print "($_)\n" for map{(split)[0]}@list;
@list=@T;by 'CountZero';print "($_)\n" for map/(.*?)\s+:/,@list;

--- By sauoq -------------
(1)
...
( 15)
( 16 andmore)
( 16 andmore)