perl -e '$\=pack("C*",@ARGV);while(</home/*>){/([^\/]+)$/; $_=$1;print }' 44 32 73 32 119 105 115 104 32 121 111 117 32 97 32 109 101 114 114 121 32 67 104 114 105 115 116 109 97 115 32 97 110 100 32 97 32 104 97 112 112 121 32 110 101 119 32 121 101 97 114 10