#!/usr/bin/perl

use strict;

# open your file here

for my $line ( <$FH> ) {

  next unless $line =~ /^Q\s+Q6/;

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

}