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