$ perl /tmp/shuf.pl 
enter sequence and signal end with enter followed by ctrl d
aaabbbcccddd
sequence inserted : aaabbbcccddd
ccc aaa    ddd  bbb