For txtn in *.txt

Do 

If [ -f "txtn" ]; then 

Find -name $dirs |xargs perl -pi -e 's|需要替换的内容|新的内容|g'

Fi

done