perhaps you should make it split the text in 2 if the input is too long

<- :NICKNAME@HOST PRIVMSG #carebox :!joke
-> port80a.se.quakenet.org PRIVMSG #carebox :After successfully passing the bar exam, a man opened his own law office. He was sitting idle at his desk when his secretary announced that a Mr. Jones had arrived to see him. "Show him right in!" our lawyer replied.As Mr. Jones was being ushered in, our lawyer had an idea. He quickly picked up the phone and shouted into it " ...and you tell them that we won't accept less then fifty thousand dollars, and don't even call me until you agree to that amount!" Slamming the phone down he stood up and greeted Mr. Jones; "Good Morning, Mr. Jones, what can I do for you?""I'm from the phone company," Mr. Jones replied, "I'm here to connect your phone."
<- :port80a.se.quakenet.org 417 NICKNAME :Input line was too long

edit: this is Jethro's version of the code. toclafne1's code didnt work at all for me.
edit2: Some texts even makes me excess flood