system 'perl', '-pi', '-e', 's/>//g', $filename;