{ local $/ = "request("; # change the input record separator while (<>) { if ( /^(.+)\s+START_TIME, (.*)/ and $1 ne "BADSTRING" ) { print "$1:$2\n"; } } }