use warnings;
use strict;
use File::Basename qw(basename);

my $text = "../files/jack/2012/derpone.pdf";
$text = basename($text);
print "$text\n";

__END__

derpone.pdf