for(my $i = ($iDiff/2); $i>=1;$i--) {
  substr($sWk, $i+1, 0) =  "\x00";
}