perl -pe 's/(....)(..)/$1-$2-/'