@a = split(/\//,$RegEx); $m = pop @a; shift @a; $s = join("/",@a);