Help for this page

Select Code to Download

Select or download this

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