gistfile1.perl

#!/usr/bin/env perl
use warnings;
use strict;

my %chats;
undef $chats{"#$_"} for qw(
    webgui 
    flea
);
my $content = do { local $/; <STDIN> };
my ($chat, $msg) = split /\s+/, $content, 2;
$chat =~ s/^\(//;
$chat =~ s/\)$//;
exit unless exists $chats{$chat};

my $title = "($chat) $ARGV[0]";
open my $child, '|-', '/usr/local/bin/growlnotify', $title,  qw(-a Adium);
print $child $msg;
close $child;