in reply to how to overcome Win32 path delimiter in s///?

File::Spec has functions to seperate parts, and function to make relative paths from absolute ones, all in an OS-independant manner:

use File::Spec ();
$file_nopath_noext = File::Spec->abs2rel($file, $path);
$file_nopath_noext =~ s/\.\w*$//;  # Chop extention if

[download]

Keep in mind the following are all the same path, so your solution may not work as anticipated. (I don't know if File::Spec is any better.)

In Section Seekers of Perl Wisdom