Something

use strict;
package changes;


sub scan(&$$) {
    my ($callback,$message,$who,$changes) = @_;


        if($message=~/^\@changes$/i) {

        open (LOG,"/home/testbot/fajita.log");
        @log = <LOG>;
        close LOG;

            @changes = grep(=~/ENTER:/i @log);
            $callback->(@changes);
            return 'NOREPLY';

       }

 return undef;
}

return "changes";