smple_paths <- c("/path/path/path/abc22/path/path", "/apath/apath/paath/abc11/something/path")
regmatches(smple_paths, gregexpr("abc\\d{2}", smple_paths))
c21wbGVfcGF0aHMgPC0gYygiL3BhdGgvcGF0aC9wYXRoL2FiYzIyL3BhdGgvcGF0aCIsICIvYXBhdGgvYXBhdGgvcGFhdGgvYWJjMTEvc29tZXRoaW5nL3BhdGgiKQpyZWdtYXRjaGVzKHNtcGxlX3BhdGhzLCBncmVnZXhwcigiYWJjXFxkezJ9Iiwgc21wbGVfcGF0aHMpKQ==