diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index 4d349282..8f3588f0 100755
--- a/ponysaylinklist.pl
+++ b/ponysaylinklist.pl
@@ -7,6 +7,7 @@
 # See COPYING for details
 
 # Author: Mattias Andrée, maandree@kth.se
+#         spider-mario
 
 
 use strict;
diff --git a/ponysaylist.pl b/ponysaylist.pl
index 0c0410c3..20044846 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -7,6 +7,7 @@
 # See COPYING for details
 
 # Author: Mattias Andrée, maandree@kth.se
+#         spider-mario
 
 
 use strict;
@@ -18,11 +19,11 @@ use List::Util qw(max);
 
 my $scrw = shift @ARGV // 1;
 
-for (@ARGV) {
-	# Format names from ponyies names
-	s/(?<=[a-z])(?=[A-Z])/ /;
-	s/_(.*)/\t($1)/;
-}
+#for (@ARGV) {
+#	# Format names from pony names
+#	s/(?<=[a-z])(?=[A-Z])/ /;
+#	s/_(.*)/\t($1)/;
+#}
 
 my $maxw = max 1, map {length} @ARGV;