All pastes #275846 Raw Edit

Someone

public text v1 · immutable
·published 2006-12-11 21:02 UTC
rendered paste body
#!/usr/bin/perl

use strict;

# open your file here

for my $line ( <$FH> ) {

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

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

}