$Path =~ tr/(\w)//d;
also 
$Path =~ s/[(\w)]//;