perl -i.bak -pe 'tr[~][\r]' yourfile