Xchat Perl scripting

Code:

import xchat, string, random, re

__module_name__ = 'autoslap'
__module_version__ = '0.1'
__module_description__ = 'Auto. slap back...'

objects = ['an apple', 'skoda felicia', 'a get a life HOWTO', 'a guitar']

def slap(word, word_eol, userdata):
    trig = re.split(' ',string.lower(word[1]))
    sender = word[0].strip('x0319')
    if trig[0] == 'slaps' and trig[1] == xchat.get_info('nick'):
        xchat.command('me slaps %s with %s' % (sender, random.choice(objects)))
    return xchat.EAT_NONE

xchat.hook_print('Channel Action Hilight', slap)
print 'Auto slap ready'

Code:
Xchat::hook_server("PRIVMSG", "autoslap");
sub autoslap { 
    my ( $linea ) = $_[1][0];
    $nick = IRC::get_info(1);
    $linea =~ /:(.*)!(.*@.*) .*:(.*)/;
    if ($linea =~ /slaps $nick/) {
    IRC::command("/me slaps back");
    }
  return Xchat::EAT_NONE;
 }