for /f %i in ('dir /s/b d:\basepath | findstr html$') do perl -pibak -e 's/src\=\"\'/src\=\'\.\.\//' %i