perl -pi -e 'm{^/index} and s/$/%/' file