Rewrite case conversion scripts

bin/h+

@@ -8,7 +8,7 @@ if [ ! "$symbol" ]; then
 	symbol='#'
 fi
 
-line=$(sed 1q | uc+)
+line=$(sed 1q | upper)
 
 echo "$symbol$symbol $line"
 echo "$symbol$symbol -----------------------------------------------------------------------------"

bin/lc+

@@ -1,8 +0,0 @@
-#!/usr/bin/env perl
-
-use utf8;
-use open qw(:std :utf8);
-
-while (<>) {
-	print lc $_;
-}

bin/lower

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+tr '[:upper:]' '[:lower:]'

bin/uc+

@@ -1,8 +0,0 @@
-#!/usr/bin/env perl
-
-use utf8;
-use open qw(:std :utf8);
-
-while (<>) {
-	print uc $_;
-}

bin/upper

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+tr '[:lower:]' '[:upper:]'