Add simple Quoted-Printable encoding/decoding function

dotfiles/bash/main.bashrc

@@ -274,6 +274,18 @@ nljoin() {
       | fixnl -c
 }
 
+qpr() {
+    #
+    # Encode or decode (if $1 is '-d') message on stdin as Quoted Printable
+    #
+    local fn=encode
+    case $1 in
+        -d) fn=decode ;;
+        -*) echo 'usage: qpr [-d] <text' >&2; return 2 ;;
+    esac
+    perl -MMIME::QuotedPrint -pe "\$_=MIME::QuotedPrint::$fn(\$_);"
+}
+
 xop() {
     #
     # Common clipboard operations with fixnl() on top