... | perl -pe '1 while s|(file="[x/]*)[^x/"]|$1x|;'