foreach $line (@lines)
  {
  if (/request/)
  ($r1, $r2) = split(/\(/);
  print $r2 unless /BADSTRING/;