perl -pi -e '$_=">$ARGV\n$_\n"' *.txt

##</code><code>##

while(<>){}