smple_paths <- c("/path/path/path/abc22/path/path", "/apath/apath/paath/abc11/something/path")
sub(".*(abc\\d{2}).*", "\\1", smple_paths)