use strict;

$/ = "";           # Set up for slurp mode
my $data = <DATA>; # Grab the entire file to a string.
my %matches = $data =~
         /^request\(      # start of record
            (?!BADSTRING) # Fails if BADSTRING is present
            ([^\n]+)      # Captures $blah1
            \n            # Match the newline
            [^,]+,        # Match anything up to the comma
            ([^\n]+)      # Capture $blah2. Everything from
         /mgx;            # the comma to the next \n

foreach ( keys %matches ) {
    print "$_ : $matches{$_}\n";
}

__DATA__
request(goodstring
START_TIME,some goodness
request(BADSTRING
START_TIME,some bad stuff
request(randomstring
START_TIME,more goodness
request(whatever you are

##</code><code>##

goodstring : some goodness
randomstring : more goodness