Select Code to Download

substr($string, (length $string)/2, 0) = '-';

substr($string, 4, 0) = '-';

$string =~ s/(.{4})(?=.)/$1-/g;