Mine

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;

            @results = grep(/enter:/i, @log);
            $changes = join(', ', @results);
            $callback->($changes);
            return 'NOREPLY';

       }

 return undef;
}

return "changes";