perl -pi.old -e 's/[^\w ,.()\t-]+//g' input_file