@lines=(
"request(goodstring",
"START_TIME,some goodness",
"request(BADSTRING",
"START_TIME,some bad stuff",
"request(randomstring",
"START_TIME,more goodness",
);
 
 
 
for my $x (0..$#lines)
{
   if($lines[$x]=~/request/)
   {
     (undef, $blah1) = split /\(/, $lines[$x];
     if($blah1!~/BADSTRING/)
     {
       (undef, $blah2)=split /,/, $lines[$x+1];#<---Plus 1 gets next line
       print "$blah1:$blah2\n";
     }
   }
}


#################
## Output

goodstring:some goodness
randomstring:more goodness


##</code><code>##

for ($x=0;$x<=$#lines;$x++)
# Three arguments are treated differently than using 
# the for loop with the list argument
{
   if($lines[$x]=~/request/)
   {
     (undef, $blah1) = split /\(/, $lines[$x];
     if($blah1!~/BADSTRING/)
     {
       (undef, $blah2)=split /,/, $lines[$x+1];,
       print "$blah1:$blah2\n";
       $x++; #<--------Increment to skip the next line
     }
   }
}