#!/usr/bin/perl -w
use strict;
use warnings;
my $dir = 'C:\user\blala\Desktop\map';
my $newdir = substr ($dir,0,3) . 'NEWDIR\\' . substr ($dir,3);
print $newdir;