while (my $record = <UNMATCHED>) {
    my @fields = split(/:/, $record);
    ...
    }