Fix bug and use unix newlines

aup.pl

@@ -30,13 +30,12 @@ sub my_aup {
         $message = "Nao saber usar o script";
     }
 
+    $message =~ s/^\s+|\s+$//g;
+
     my $encoded_message = $message;
     $encoded_message =~ s/([^A-Za-z0-9 ]+)//g;
     $encoded_message =~ s/ /%20/g;
 
-    $message =~ s/^\s+|\s+$//g;
-
-
     my $aup = "/!\\ Aviso: $who${c}13$message$c é uma violação da AUP da DeadBSD (consulte em: http://aup.deadbsd.org/$encoded_message ) e pode incorrer em sansões graves. Lembre-se de utilizar este serviço como um privilégio e nunca como um direito!";
 
     $window->command( "say " . $aup );