With Path::Class, that can be written as

#!/usr/bin/perl --

use strict;
use warnings;

use Path::Class;

print file(qw' \one\two\three\four ')->basename;
print "\n";

__END__
four
[download]