diff options
author | Pablo Lezaeta <prflr88@gmail.com> | 2012-07-20 19:22:39 -0400 |
---|---|---|
committer | Pablo Lezaeta <prflr88@gmail.com> | 2012-07-20 19:22:39 -0400 |
commit | 39f97217784e6b2c1f2990e54404268c1216df0d (patch) | |
tree | b6a65e51302731ef5dcaa5f3deb3611150bb2600 /ponysaylist.pl | |
parent | 8d5e90406f0631cf32ad2184918b1a9eeb409e76 (diff) | |
parent | 80739e89dfd526f0220d33831a02c0462b3a375f (diff) | |
download | ponysay-39f97217784e6b2c1f2990e54404268c1216df0d.tar.gz ponysay-39f97217784e6b2c1f2990e54404268c1216df0d.tar.bz2 ponysay-39f97217784e6b2c1f2990e54404268c1216df0d.zip |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'ponysaylist.pl')
-rwxr-xr-x | ponysaylist.pl | 4 |
1 files changed, 4 insertions, 0 deletions
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; |