in reply to shrinking the path

$source_path = 'C:\Documents and Settings\Administrator\Desktop\';
## Note the single quotes

$folder_path =  'C:\Documents and Settings\Administrator\Desktop\eitv9
+_lvttest';
## Replace: remember to escape your '\', and to replace case-insensiti
+vely.
$folder_path =~ s[^$source_path][Eitv9\\]i;

[download]

radiantmatrix
require General::Disclaimer;
s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}

In Section Seekers of Perl Wisdom