my @newlist = @oldlist;
s{(\d+-PVC_\d+)}{ function1($1) . '/' . function2($1) }e for @newlist;