st() {
  for a in "$@"; do
    stat "$a" | perl -pe 's/\s*\S+: / /g; s/^\s+//' | perl -ne '$_=join "",<>; s/\n/\t/gs; tr/ / /s; s/[()]//g; s,/ ,/,g; s/\s+$//; print "$_\n";'
  done
}
if [ -z "$1" ]; then
	st *
else
	st "$@"
fi