perl -pi.bak -e 'BEGIN{$/=$u}s//\n/' foo*

##</code><code>##

$ cat > XXX 
1
2
3
$ cp XXX fxx
$ perl5.00503 -pi.bak -e 'BEGIN{$/=$u}s/^/\n/' fxx*
$ cat fxx

1
2
3
$ cp XXX fxx
$ perl5.6.0 -pi.bak -e 'BEGIN{$/=$u}s/^/\n/' fxx*
$ cat fxx

1
2
3

$