Select Code to Download

my $path = "C:\\Program Files\\Internet Explorer\\";
my @tokens = split(/\\/, $path);
foreach(@tokens) {
...
    $_ = substr($_, 0, 6) . '~1';
}
$path = join("\\", @tokens);