<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>; s"& \\S+/twitter\\.com/\\S+""; if (1) { open $o,">",$f;print$o $_; } print substr $_,200;

#!/bin/sh
if [ $# -ne 0 ]; then for f in "$@"; do echo "#!/bin/cat" && cat "$f"; done; else echo "#!/bin/cat" && cat; fi