rindex will find the last '\' for you. As in:

  my $foo = "\\one\\two\\three\\four" ;
  my $bar = substr($foo, rindex($foo, "\\") +1) ;
[download]

or did it have to be a regex ?