$str=~s/(?<=(\d\s){0})\d*/I am replaced/;