$filepath = '/u/test/global/filename.txt';
my ( @data ) = split /\//, $filepath;
my ( $filename ) = $data[$#data];
print "$filename" ; ## will print filename.txt