my $path = "C:\\Program Files\\Internet Explorer\\";
my @tokens = split(/\\/, $path);
foreach(@tokens) {
    next unless length $_ > 8;
    s/\s//g; # remove whitespace
    $_ = substr($_, 0, 6) . '~1';
}
$path = join("\\", @tokens);