@newlist = grep (s/(\d+-PVC_\d+)/ &function1($1)/e, @oldlist);