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

##</code><code>##

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

##</code><code>##

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