I'd be inclined to do this (assuming that file and the directory are together):

use File::Basename;

print 'Evit9/' . basename( $folder_path );
[download]

If I understand your intentions. Think it's a bit more readable then a regex.