my ($file) = ($path =~ /([^//]*)$/);