line number: action filename

##</code><code>##

9248: OPEN perl.doc
9249: DELETE incriminating_evidence.txt
9250: EDIT autoexec.bat

##</code><code>##

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