perl -MO=Deparse -pi.bak -e s/$search(?=,)\/$replace/g