use File::Spec ();
$file_nopath_noext = File::Spec->abs2rel($file, $path);
$file_nopath_noext =~ s/\.\w*$//;  # Chop extention if