To perform operations on filenames,
see this core module File::Spec

#!/usr/bin/perl -w
use  strict;
use File::Spec;

my $path = q{C:\Communications%20by%20Date\1995\19950711%20UBL%20An%20
+Open%20Letter%20to%20King.pdf}; 

my ($volume,$directories,$file) = File::Spec->splitpath( $path );
print $file, "\n";

__END__
Output : 
19950711%20UBL%20An%20Open%20Letter%20to%20King.pdf
[download]

hth,
PooLpi