perl -pi.bak -e 's/(blah|wah|yada)\1//g;s/^\s+$//' $file