my ($file_without_path) = $filename =~ /^.*?\/(\w*?\w*?\.ext)$/;