All pastes #275847 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-12-11 21:03 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=\d+)?$/;

}