while (<>) {
    if ( /^(\d+):\s(?:EDIT|DELETE)\s(.*)$/ ) {
        $results{ $1 } = $2;
    }
}