if ($full_path =~ /.*\/\d\/([\w\-.]\/[\w\-.]\/[\w\-.]\/[\w\-.]+)/ ) {
            print $1."\n";
        } 

+ Recent posts