Unnamed

     for (my $i = 0; $i < scalar(@stuff); $i++) {
         $stuff[$i]->{name} =~ s/\\\\/\\/;
         $stuff[$i]->{name} =~ s/\\'/'/;
         $stuff[$i]->{name} =~ s/\\"/"/;
         $stuff[$i]->{comment} =~ s/\\\\/\\/;
         $stuff[$i]->{comment} =~ s/\\'/'/;
         $stuff[$i]->{comment} =~ s/\\"/"/;
         $message = "hai2u $stuff[$i]->{name} @ $stuff[$i]->{timestamp} : $stuff[$i]->{comment}";
         $irc->yield( privmsg => $channel => $message);
     }