Quoted Printable encode/decode bash aliases - suitable for pipelining

gistfile1.txt

# To decode:
#   qp -d string 
# To encode:
#   qp string

alias qpd='perl -MMIME::QuotedPrint -pe '\''$_=MIME::QuotedPrint::decode($_);'\'''
alias qpe='perl -MMIME::QuotedPrint -pe '\''$_=MIME::QuotedPrint::encode($_);'\'''
function qp {
if [[ "$1" = "-d" ]]
then
	echo ${@:2} | qpd
else
	echo ${@} | qpe
fi
}

@Hubro: this should be the accepted answer!

(oh wait, I'm not on stackoverflow?)

the perl version can be much simple:

qp () {
    perl -MMIME::QuotedPrint -s -ne '
        BEGIN { *e = $d ? \&decode_qp : \&encode_qp }
        print e $_
    ' -- "$@"
}

qp /etc/hostname - /etc/hostname <<< ∀✓ | qp -d

qprint --decode and qprint --encode are easy to use.