Script to remove gmail and yahoo accounts from a directory

perl -pi -e 's/.*((\@gmail\.com)|(\@yahoo\.com)).*//g' *