> perldoc -f read

##</code><code>##

     read FILEHANDLE,SCALAR,LENGTH
             Attempts to read LENGTH bytes of data into variable
             SCALAR from the specified FILEHANDLE.  Returns the
             number of bytes actually read, "0" at end of file,
             or undef if there was an error.  SCALAR will be
             grown or shrunk to the length actually read.  If
             SCALAR needs growing, the new bytes will be zero
             bytes.  An OFFSET may be specified to place the read
             data into some other place in SCALAR than the
             beginning.  The call is actually implemented in
             terms of stdio's fread(3) call.  To get a true
             read(2) system call, see "sysread".

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "&#93;`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;print"\n";}