#! /bin/sh sed -n -e '/^X-Face:/,/^[^ \t]/ p' "$@" \ | perl -pe 's/^X-Face:\s*/\n /' \ | perl -ne 'print if /^$/ or /^[ \t]/' \ | perl -n00e 's/\s//g; print $_, "\n"'