perl -E '$s = q[AAD34017837201D98AAED18778DEF993]; 
say length($s), " ", $s;
@m = $s =~ /(....){4}(.+)/; 
say "", join("-",@m);'
# 32 AAD34017837201D98AAED18778DEF993
# 01D9-8AAED18778DEF993