From 40164221fbae896ba14715fa0c01cbb56a426105 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 21 Jul 2012 09:36:33 +0200
Subject: Updated perl-script to format the ponies names

---
 ponysaylist.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ponysaylist.pl b/ponysaylist.pl
index 7a09376..72c0a92 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -15,6 +15,10 @@ $maxw = 1;
 
 foreach $arg (@ARGV)
 {
+	# Format names from ponyies names
+	$arg =~ s/([a-z])([A-Z])/\1 \2/;
+	$arg =~ s/_(.*)/\t(\1)/;
+	
     if ($first == 1)
     {   $first = 0;
 	$scrw = $arg;
-- 
cgit