$fn = $file;
$fn =~ s/^(.*)\/(.+?)$/$2/;