$line =~ s/(\w{3}(?!$))/$1-/xg;