system(perl -pi -e 's/>//g' filename);