# HG changeset patch
# User HackBot
# Date 1375899274 0
# Node ID c216e32f5e2e7e600e9d378fb0e253c5548b2f67
# Parent  6d9cebb0eac5c7444f14613df18284ce75591cf5
<ion> sed -i -re \'s/aeiouy/aeiouyAEIOUY/g\' bin/thanks bin/hi && cat bin/thanks

diff -r 6d9cebb0eac5 -r c216e32f5e2e bin/hi
--- a/bin/hi	Wed Aug 07 18:09:59 2013 +0000
+++ b/bin/hi	Wed Aug 07 18:14:34 2013 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-$_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Hi $_. "; if (/[aeiouy]/) { s/^[^aeiouy]*/H/; } else { s/^./H/; } print "$_.";
\ No newline at end of file
+$_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Hi $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/H/; } else { s/^./H/; } print "$_.";
\ No newline at end of file
diff -r 6d9cebb0eac5 -r c216e32f5e2e bin/thanks
--- a/bin/thanks	Wed Aug 07 18:09:59 2013 +0000
+++ b/bin/thanks	Wed Aug 07 18:14:34 2013 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-$_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Thanks, $_. "; if (/[aeiouy]/) { s/^[^aeiouy]*/Th/; } else { s/^./T/; } print "$_.";
\ No newline at end of file
+$_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Thanks, $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/Th/; } else { s/^./T/; } print "$_.";
\ No newline at end of file