dir|perl -e "$k = join '', <>;chomp $k;print uc unpack ('H2',substr $k,0,1,''),$_%36 != 0 ? $_%4 != 0 ?'':' ':chr(10) for 1..length($k)"
或是
dir|perl -e "$/ = undef;$k = <>;chomp $k;print uc unpack ('H2',substr $k,0,1,''),$_%36 != 0 ? $_%4 != 0 ?'':' ':chr(10) for 1..length($k)"
