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

##</code><code>##

Substitution replacement not terminated at -e line 2.