Anonymous
public text v1 · immutable#!/usr/bin/perl
use strict;
# open your file here
for my $line ( <$FH> ) {
next unless $line =~ /^Q\s+Q6/;
my @data = $line =~ /^.*\[(\d+)\](.*?\[(.*?)\])?$/;
}
#!/usr/bin/perl
use strict;
# open your file here
for my $line ( <$FH> ) {
next unless $line =~ /^Q\s+Q6/;
my @data = $line =~ /^.*\[(\d+)\](.*?\[(.*?)\])?$/;
}