my $reply_string;
given ($p){
when ('!'){
- $reply_string = "msg $nick ";
+ $reply_string = "msg $nick";
}
when ('~'){
- $reply_string = "msg $channel ";
+ $reply_string = "msg $channel";
}
default {
- $reply_string = "notice $nick ";
+ $reply_string = "notice $nick";
}
}