my @lines = map { /:\s*(.*)/ ? $1 : () } @array;

##</code><code>##

my @lines = map { /:\s*(.*)/ ? $1 : () } <$fh>;