Mine

#!/usr/bin/perl

use strict;

# open your file here

my $labels = join '|', @labels;

my $label;

for my $line ( <$FH> ) {

  next unless $line =~ /^Q\s+($labels)/;

  $label = $1;

  my @data = $line =~ /^.*\[(\d+)\](.*?max=\d+)?$/;

}

print $label, @data;