#!/usr/bin/perl
# Note use of special {..} quoting style to disambiguate quoting of strings
# that may themselves contain quotes.
s/^\s*['"]\s*(.*?)$/say {$1}/;
# This is less than perfect, fails if there is a space in someone's name.
# But allowing spaces would make it much too broad. Note use of negative
# lookahead assertian to prevent "mooix:" from matching.
s/^\s*(?!mooix\s*:)(\w+)\s*:\s*(.*)$/say {$2} to $1/;
s/^\s*\/me\s+(.+)$/emote {$1}/i; # for irc junkies
s/^\s*:\s*(.+)$/emote {$1}/;
s/^\s*;(.*)$/eval {$1}/; # for programmers
s/^\s*!(.*)$/shell {$1}/; # for programmers
s/^\s*l\b/look/;
