while ( <FH> ) {
  ...
  next if $time !~ m/ \[ (.+?) \] /x;
  next     #  2d last item is minute
    unless time_components($time)->[-2] % ($period / SEC_PER_MINUTE);
  ...
}