perl -i~ -plwe 's/mom/dad/g' *.txt