in reply to changing File Find name

or here's a more general solution. suppose you have the $fullpath and the start directory $startdir:
use File::Spec; my $file = '/' . File::Spec->abs2rel($fullpath, $startdir);