#
# Go through each line of input and create entries for only tapes
# matching the "FROZEN" status.
#
sub match {
    while (<IMAGES>) {
        next unless m/\(FROZEN\)/; # skip non-frozen tapes
        chomp;
        s/^\s+//; # remove any leading spaces

        create_entry(split(/\s+/));
    }
}