$string = "s005219/Doe John|John.Doe\\";
@array = split/[^\w\s\.]+/, $string;
print join "--",@array;