$ uname -s
Darwin

$ echo '\one\two\three\four' 
\one\two\three\four

$ echo '\one\two\three\four' |
   perl -MFile::Basename -lne 'print basename($_)'
\one\two\three\four

$ echo '\one\two\three\four' |
   perl -MFile::Basename -lne 'BEGIN{fileparse_set_fstype("DOS")} print basename($_)'
four