my $buf;
for my $line (@lines) {
  if($line =~ /^request\((.+)$/ ) {
    $buf = $1;
    undef $buf if $buf =~ /BADSTRING/;
  }elsif(defined $buf) {
    print "$buf: ", (split ', ', $line)[1],"\n";
    undef $buf;
  }
}