Select Code to Download

foreach (@data) {
  my $match = $_ if !/:/;
}

foreach (@data) {
  my $match = $_ if /^[^:]*$/;
}

my ($match) = grep !/:/, @data;