Hai try this,

$string = "s005219/Doe John|John.Doe\\";
($john) = $string =~ m#\/(.*?)\|#gsi;
print $john;
[download]

1.With in double quotes text last slash please use escape sequence one more slash. Now, it works.